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IDENTIFICATION 

PRODUCT ID: ZZ-ESKAA-1 .1 

PRODUCT TITLE: EVSAA- VAX 11/780 LOCAL CONSOLE STANDARD VERSION 

DECO/DEPO: 10.1 

DATE: MARCH 1986 

MAINTAINED BY: VAX DIAGNOSTIC ENGINEERING 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE 
CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH 
IS NOT SUPPLIED BY DEC. 
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VAX-U/780 CONSOLE HELP FILE 
TO STOP PRINTING. TYPE *C 
FOR ABBREVIATION RULES. TYPE 
FOR ERROR MESSAGE HELP. TYPE 
FOR REMOTE ACCESS HELP TYPE 
FOR HCS MICRO-DEBUGGER HELP. 
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Sequence 2 



'aABBREV.HLP' 
aERROR.HLP' 
'aREMOTE.HLP* 
INSERT HCS DEBUG 



FLOPPY THEN TYPE 'aWCSMON.HLP 



SYNTAX: ALL COMMANDS ARE TERMINATED BY CARRIAGE RETURN. 



'EXAMINE' AND 
, /p . 

VV* 
VI* 
*/G' 
'/VB' 
'/ID' 
'EXAMINE' AND 
'/B* 
'/W* 
'/L* 
*/Q' 



•DEPOSIT* <QUAL> SWITCHES FOR ADDRESS SPACE 

= PHYSICAL HEMORTCTHE DEFAULT) 

= VIRTUAL MEMORY 

= INTERNAL(PROCESSOR) REGISTERS 

= GENERAL REGISTERS THRU FcRO THRU PC) 

= VBUS REGISTERS 

= IDBUS REGISTERS 

'DEPOSIT' <QUAL> SWITCHES FOR DATA-LENGTH : 

= BYTE <9 BITS) 

= WORD (2 BYTES) 

= LONGWORD (2 WORDS) 

= QUADWORD (4 WORDS) 



<ADDR> IS A <NUMBER>. OR ONE OF THE FOLLOWING SYMBOLIC ADDRESS 

'R0.R1.R2 Rll.AP.FP.SP.PC* (GENERAL REGISTERS) 

*PSL' = PROCESSOR STATUS WORD 
= LAST ADDRESS 

= ADDRESS FOLLOyiNG "LAST'O ADDRESS 
= ADDRESS PRECEEDING 'LAST'O ADDRESS 
'a* = USES LAST EXAMINE/DEPOSIT DATA FOR ADDRESS 
<NUMBER> = STRING OF DIGITS IN CURRENT DEFAULT RADIX. 
OR STRING OF DIGITS PREFIXED WITH A DEFAULT RADIX 
OVERRIDE (*0 FOR OCTAL. M FOR HEX). 



'BOOT' 

'BOOT <DEVNAM> 



'CLEAR STEP' 
'CLEAR SOMM' 



'CONTINUE* 

'DEPOSIT[/<SWITCH(ES)>] 
'ENABLE DX1:' 



'EXAMINE[/<SWITCH(ES)>] 
'EXAMINE IR* 



•HALT' 
•HELP* 

'INITIALIZE' 
'LINK* 



<ADDR> <DATA> 



<ADDR> 



-BOOTS THE CPU FROM DEFAULT DEVICE 
-TAKES THE FIRST THREE ALPHANUMERIC 
CHARS OF <DEVNAM>. AND EXECUTES THE 
INDIRECT FILE ' <DEVNAM>BOO .CMD' 
-ENABLE NORMAL (NO STEP) MODE 
-CLEAR 'STOP ON MICRO-MATCH' ENABLE. 
NOTE: ID REGISTER 21 IS THE 
MICRO-MATCH REGISTER. 
-ISSUES A ' NTINUE TO THE ISP 
-DEPOSIT <t, A> TO <ADDRESS> 
-ENABLES CO*UE SOFTWARE TO ACCESS 
FLOPPY DRI 1 ON THOSE SYSTEMS WITH 
DUAL fLOPr 
-DISPLAY CO* 
-EXAMINE INF 
OP-CODE. SP 
COUNTER 
•HALTS THE ISP 
-PRINTS THIS FILE 
-INITIALIZES THE CPU 
-CAUSES CONSOLE TO BEGIN COMMAND 
LINKING. CONSOLE PRINTS REVERSED 
PROMPT TO INDICATE LINKING. ALL 
COMMANDS TYPED BY USER WHILE LINKING 
ARE STORED IN AN INDIRECT COMMAND 
FILE c OR LATER EXECUTION. CONTROL-C 
TERMINATES LINKING. (SEE PERFORM) 



TS OF 
T ION 

:r. 



<ADDRESS> 
REG(IR). DISPLAYS 
EXECUTION POINT 



D 1 
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'LOAD! /START :<ADDR>1 <FILENAME>' 

"LOAD/WCS <FILENAME>* 
'NEXT <NUMBER>' 



•PERFORM' 



'QCLEAR <ADDRESS>' 



'REBOOT' 

'REPEAT <ANY-CONSOLE-COMMAND>* 



'SET CLOCK SLOW 

'SET CLOCK FAST' 

'SET CLOCK NORMAL' 

'SET DEFAULT <OPTION>[ .. 
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Sequence 3 



..<OPTION>]' 



•SET RELOCATION:<NUMBER>' 



'SET SOMM' 

'SET STEP BUS' 

'SET STEP INSTRUCTION' 

'SET STEP STATE' 

'SET TERMINAL FILL : <NUMBER> ' 

'SET TERMINAL PROGRAM' 

'SHOW 

'SHOW VERSION' 

'3TART <ADDRESS>' 

'TEST* 
'TEST/COM' 

'UNJAM' 
'WCS* 



'WAIT DONE' 



-LOAD FILE TO MAM MEMORY. STARTING AT 

ADDRESS 0. OR <ADDR> IF SPECIFIED 
-LOAD FILE SPECIFIED TO HCS 
-<N'.*3ER> STEP CYCLES ARE DONE. TYPE 

OF bTEP DEPENDS ON LAST 'SET STEP' 

COMMAND 
-EXECUTE A FILE OF LINKED COMMANDS 

PREVIOUSLY GENERATED VIA A 'LINK* 

COMMAND. 
-DOES A QUAD CLEAR TO < ADDRESS >. WHICH 

IS FORCED TO A QUAD WORD BOUNDARY. 

(CLEARS ECC ERRORS) 
-CAUSES A CONSOLE SOFTWARE RELOAD 
-CAUSES THE CONSOLE TO REPEATEDLY 

EXECUTE THE <CONSCLE-COMMAND> . UNTIL 

STOPPED BY A CONTROL-C (*C). 
-SET ~PU CLOCK FREQ TO SLOW. 
-SET CPU CLOCK FREQ TO FAST 
-SET CPU CLOCK FREQ TO NORMAL 
-SET CONSOLE DEFAULTS 
NOTE: <OPTIONS> ARE: 
OCTAL. HEX. PHYSICAL. VIRTUAL. INTERNAL 
GENERAL. VBUS.IDBUS. BYTE. WORD. LONG. QUAD 
-PUT <NUMBER> INTO CONSOLE RELOCATION 

REGISTER. RELOCATION REGISTER IS 

ADDED TO EFFECTIVE ADDRESS OF 

PHYSICAL AND VIRTUAL EXAMINES AND 

DEPOSITS. 
-SET 'STOP ON MICRO-HATCH' ENABLE 
-ENABLE SINGLE BUS CYCLE CLOCK MODE 
-ENABLES SINGLE INSTRUCTION MODE 
-ENABLE SINGLE TIME STATE CLOCK MODE 
-SET FILL COUNT FOR t OF BLANKS 

WRITTEN TO THE TERMINAL AFTER <CRLF> 
-PUT CONSOLE TERMINAL INTO 'PROGRAM 

i/o* mod: 

-SHOWS CONSOLE AND CPU STATE 

-SHOWS VERSIONS OF MICROCODE AND 
CONSOLE 

-INITIALIZES THE CPU.DEPOSITS<ADDRESS> 
TO PC. ISSUES A CONTINUE TO THE ISP. 

-RUNS MICRO-DIAGNOSTICS 

-LOADS MICRO-DIAGNOSTICS. AWAITS 
COMMANDS 

-UNJAMS THE SBI 

-CALLS MICRO-DEBUGGER. WCS MICRO- 
DEBUGGER FLOPPY MUST BE INSERTED 
IN CS1. ELSE. "FILE NOT FOUND" ERROR. 
(FOR DEBUGGER HELP. INSERT WCS DEBUG 
FLOPPY. THEN TYPE 'aWCSMON .HLP ' ) 

-WHEN EXECUTED FROM AN INDIRECT 
COMMAND FILE. THIS COMMAND WILL CAUSE 
COMMAND FILE EXECUTION TO S^OP UNTIL: 

A) A 'DONE* SIGNAL IS RECEIVED FROM 
THE PROGRAM RUNNING IN THE VAX 
(COMMAND FILE EXECUTION WILL 
CONTINUE). OR 

B) THE VAX-11/780 HALTS. OR OPER- 
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Sequence 4 



'aP'(CONTROL-P) 

'a<FILENAHE>* 

<END OF 'CCNSOL.HLP'> 



ATOR T.PES A CONTROL-C (aC : 
COMMAND FILE EXECUTION HILL 
TERMINATE). 
•PUT CONSOLE TERMINAL INTO 'CONSOLE 
I/O' MODE 

(UNLESS MODE SWITCH IN 'DISABLE') 
-PROCESS AN INDIRECT COMMAND FILE 
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ZZ-ESKAA-10.1 Table of contents 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

Table of contents 



20-MAY-1986 



Fiche 1 Frame Fl 



Sequence 5 



1- 59 

3- 114 

4- 898 

5- 951 

6- 1259 
9- 1555 
9- 1556 

11- 1765 

12- 1894 

12- 1895 

13- 1967 

14- 2136 
17- 2273 

17- 2274 

18- 2324 

19- 2338 

20- 2438 

21- 2489 

22- 2543 

23- 2600 

24- 2650 

25- 2724 

28- 2887 

29- 2963 

30- 2999 

31- 3017 

33- 3089 

34- 3137 

35- 3206 

36- 3257 

37- 3284 

38- 3326 

39- 3364 

40- 3410 

41- 3459 

42- 3513 

44- 3655 

45- 3727 

46- 3754 

47- 3808 

48- 3V19 

49- 3939 

50- 4046 

50- 4194 

51- 4203 

52- 4263 

53- 4316 

55- 4382 

56- 4470 

56- 4471 

57- 4553 

57- 4554 

58- 4669 

59- 4711 

60- 4753 



REGISTER USAGE SUMMARY 
FILE. CLEAR SOMM .CONT INUE 



***• VAX11/780 CONSOlE(RAM) VERSION V10-01-LOCAL 

VERSION HISTORY -- EL IT ARCHIVE 

CONSOLE ASSEMBLY AND LINK NOTES 

DECLARATIONS AND MACROS 

MACRO DEFINITIONS FOR STAR CONSOLE 

CONSOLE FLOPPY BOOT 
LOAD CONSOLE PROGRAM 

COMMAND GETTER 
GET A COMMAND LINE 
CONSOLE NULL LOOP 

COMMAND EXECUTER 

COMMAND EXECUTION RTN 

BOOT, PROCESS INDIRECT 

START. UN JAM 

HALT. INITIALIZE 

NEXTCPERFORM A STEP) 

QUAD CLEAR 

SET STEP. CLOCK. SOMM 

EXAMINE. DEPOSIT 

MICRO-ASSISTED EXAMINE/DEPOSIT ROUTINES 

EXAMINE ID BUS 

EXAMINE/DEPOSIT STAR PC 

VBUS EXAMINE 

EXAMINE INSTRUCTION REGISTER(IR) 

SHOU CONSOLE STATE 

SHOW VERSION INFO 

SET DEFAULTS 

LOAD MICRO-DIAGNOSTIC MONITOR OR MICRO-DEBUGGER 

WAIT FOR DONE.SET/CLR MEMORY MAPPING ENABLE 

CLOCK TICK REPORTING 

CHECK FOR CLOCK STOP. WAIT FOR MICRO-RESPONSE 

TEST FOR A MICRO-ROUTINE ERROR 

TEST FOR A STAR CPU HALT. REPORT A HALT 

PUSH MICRO-STACK, READ/WRITE ID BUS REGISTERS 

TEST FOR STAR CPU RUNNING 

TEST FOR A MICRO-MACHINE TIME 

PCS.UCS.FPLA VERSION CHECKING 

READ ID BUS REGISTER ROUTINE 

FILENAME CONVERSION TO RAD50 

LOAD A FILE 

LINK COMMAND 

INDIRECT COMMAND LINE RETRIEVER 

OPEN FILE. TYPE FLOPPY ERROR MESSAGE 

TIMEOUT/ODD ADDRESS TRAP CATCHER 

APT "X* COMMAND EXECUTION 

PARSING TABLES AND ACTIONS 

PARSER 

REMOVE BLANKS. COMPUTE NEXT NODE ADDRESS 

RECOGNIZE A STRING OF ASCII CHARACTERS 

CHE"f FOR A DELIMITER IN INPUT STRING 



OUT 
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61- 4791 RECOGNIZE AND CONVERT A NUMERIC ASCII STRING 

63- 4904 MAIN SYNTAX CHECK TREE 

65- 5032 QUALIFIER SYNTAX CHECK TREE 

66- 5056 MAINTREE AND QUALIFIER TREE LISTS 

67- 5096 PARSER ACTION ROUTINES 

68- 5109 ACTIONS THAT SAVE OPERATION TO PERFORM 

68- 5186 ACTIONS FOR QUALIFIERS AND SET DEFAULT COMMAND 

70- 5269 SYMBOLIC REGISTER ADDRESS SETUPS 

71- 5296 ACTIONS FOR SYHBOLIC ADDRESSES 

72- 5337 RECOGNITION STRINGS 

73- 5474 TEXT STRING STORAGE 

74- 5616 TEMPORARY STORAGE 
84- 8367 

84- 8368 CONSOLE SWITCH POSITION CHECKER 

85- 8435 CONSOLE SWITCH MODc CHANGE 

88- 8795 EMT DESPATCHER FOR EXTRA EMT CODES. 

89- 8833 CONSOLE TEMPORARY STORAGE 

90- 8873 IMPURE AREA FOR DRIVERS AND FILESERVICES 

91- 8972 DEVICE REQUEST QUEUES 

92- 9090 RING BUFFER DESCRIPTOR BLOCKS 
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1 ;VAX 11780 CONSOLE -- M.J. HARE, D. EARLE . D. MONROE. I. A. LOUGHLIN 

2 

3 .LIST MC 

< .NLIST ME.MD.CND 

5 

6 ; 

7 ; IDENTIFICATION MACROS : 
8 

12 
53 
54 

55 000001 PVER=1 

56 000000 SVER^O 

57 000000 PEDT=0 

58 000001 SEDT^l 

59 000000 IDENT \PVER .\SVER .\PEDT ,\SEDT . <VAX1 ; /780 CONSOLE(RAM) > 



60 
65 



.TITLE V10-01-L 

.SBTTL *'** VAX11/780 CONSOLE(RAM) VERSION V10-01-LOCAL 

.IDENT /V1001/ 



* * * * 
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V10-01-L 

•"• VAX11/780 

113 
114 
115 

490 
491 
492 
49? 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
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.SBTTL VERSION HISTORY -- EDIT ARCHIVE 



V02 

EDIT-00 25-JUL-78 

A) RENAME CONSOLE 
IMPLEMENTATION 
CONSOLE. 

B) MOVE THE 'REMOTE FLOPPY DISABLE' FLAG (ALLOC) 
AN AREA THAT IS NOT CONDITIONALLY ASSEMBLED. 



VERSION LEVEL TO '02* TO REFLECT 
AS A FUNCTIONAL BASELINE LEVEL RD 



TC 



EDIT-01 28-JUL-78 

A) DUE TO A DISAGREEMENT iN SPECIFICATIONS. THE 
CONSOLE HAS NOT PUTTING THE PC. PSL. AND HALT 
CODES IN THE REGISTERS THAT VMS EXPECTED AFTER 
AN AUTO-RESTART IS INITIATED. THIS VERSION OF 
THE CONSOLE PUTS THESE PARAMETERS IN THE REGISTERS 
THAT VMS EXPECTS. ALSO FIXED A PROBLEM CAUSING 
THE 'HALT REASON' CODE TO BE CLEARED. 



EDIT-02 10-AUG-78 

A) DUPLICATE THE 
CKBDBGN') IN 
1 - 



B) 



KEYBOARD INTERRUPT SERVICE ROUTINE 
RAM. WITH TWO CHANGES: 

THE CONSOLE WILL NO LONGER RECOGNIZE A 

CONTROL-C AS A REBOOT. WHEN NO USER REQUEST 

IS ACTIVE. 
2 - CONTROL-P FROM THE LOCAL TERMINAL WILL NO 

LONGER DISABLE 'TALK' IF THE KEYSWITCH IS 

IN REMOTE POSITION. 
THESE CHANGES ARE IN RESPONSE TO F.S. PROBLEMS. 
THE KEYBOARD INTERRUPT VECTOR 'KBDINT' HAS BEEN 
CHANGED TO POINT TO THE NEW RAM ROUTINE. 
CUT 'RECSIZ' AGAIN. TO ALLOW ROOM FOR (A). 



EDIT-03 24-AUG-78 

A) HOW CLEAR THE PSW. BEFORE TRYING TO SEND A 

CHARACTER TO VMS. WHILE IN PROTOCL PROGRAM I/O 
MODE ; THUS FORCING AN INTERRUPT. THIS 
CHANGE WAS MADE TO EDI T-01 -24-A . WHERE A TIMING 
LOOP WAS IMPLEMENTED (KLUDGO). AS STAR NEVER GOT 
MORE THAN NINE CHARACTERS. 



EDIT-04 2-DEC-78 



A) 



B) 



C) 



CHANGED THE 
AND RELATED 
APPARENT IN 
NOW DISABLE 



VECTOR 'PRTINT' TO REFLECT 'KLUDG2'. 
CHANGES. SO THAT THE RAM ROUTINE IS NOW 
THE EDITS. 
LSI INTERRUPTS (PS=340) WHILE FIDDLING 



WITH CIB INTERRUPT ENABLES. IN 'DOCONT'. 'SAWHLT'. 
ETC. 

RE-DIRECTED THE REMOTE TERMINAL INTERRUPT VECTOR TO 
'RMTENT' IN RAM, TO REFLECT (AND CORRECT) EDIT-V02- 
02. 'KLUDG3'. NOW THE CONSOLE WILL NO LONGER RE- 
BOOT ON RECEIPT OF A CONTROL-C FROM THE REMOTE 
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542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

5H0 

581 ; EDIT-07 

582 

583 

584 

585 

586 

5a7 

588 

589 

59C 

591 ; EDIT-08 

592 

593 

594 

595 

596 
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TERMINAL. 

D) DELETED THE SECOND COPY OF 'PARSING TABLES AND 
ACTIONS' MACRO DEFINITIONS. 

E) NO LONGER RE-ENTER PROTOCOL ON 'CARRIER LIST' 
DETECTION, AS THIS OBSTRUCTS RE-ESTABLISHiNG A 
CONNECTION FROM THE R.D. HOST. THIS HILL BE FIXED 
IN EDIT-V02-05. 

F) MOVED THE DEFINITION OF SOFTWARE COMMUNICATION 
CODES TO THE RELEVANT ROUTINE IN RAM. 

EDIT-05 2-DEC-78 

A) INCREMENT TERMINAL SYNC FLAG. SO AS TO NOT SET 
'TX READY'. IF BOTH APT OUTPUT BUFFERS ARE FULL. 
WHILE IN PROTOCOL PROGRAM I/O MODE. 
RE-SET THE FLAG WHEN THE OUTPUT BUFFER LOCK IS 
CLEARED. OR ON EXITING PROIOCOL. 

EDIT-06 3-DEC-78 

NOTE: EDITS V02-04 THROUGH -06 ARE MARKED WITH **«*' 
IN THE COMMENT ZONE. DUE TO THEIR EXTENT AND VARIETY. 

A) MOVE THE REMOTE TERMINAL ECHO BUFFER TO UPPER 
MEMORY. FOLLOWING THE LOCAL BUFFER. SO THAT WE 
CAN EXPAND IT TO 128 BYTES AGAIN. 
CUT THE APT OUTPUT BUFFERS BACK TO 128. BYTES. 
NOW THAT EDIT-02-05 IS FULLY TESTED. 

B) CHANGE THE CIB 'TX READY' INTERRUPT SERVICE VECTOR 
TO POINT TO A RAM ROUTINE WHICH FIXES A PROBLEM 
WHERE 'EXAMINE CONSOL£ MEMORY' DOES NOT RETURN 
THE EXAMINE CODE IN THE UPPER BYTE. 
COMBINED THIS ROUTINE WITH 'SELCOD'. THE ROUTINE 
WHICH USED TO CHECK FOR NEW SOFTWARE COMMUNICATION 
CODES. AND MADE THAT HOOK A 'NOP* 

C) NOW CLEAR LAST POSITION OF KEYSWITCH. ON LOSS OF 
CARRIER IN REMOTE MODE. TO FORCE A PROTOCOL INIT- 
IALIZATION. ALSO INITIALIZE LOCAL COPY AND LOCAL 
CONTROL WHENEVER THE 'TRANSITION TO REMOTE' IS 
EXECUTED. 

8-JAN-78 

A) CHANGED THE HANDLING OF BOTH APT OUTPUT BUFFERS 
FULL (EDIT-02-05). NOW NO LOGER INCREMENT THE 
TERMINAL 'SYNC FLAG; BUT CORRECT CIB 'TX-READY' 
SERVICE ROUTINE SO THAT IT NEVER GETS SET WHEN 
WRITING TO THE REMOTE TERMINAL ONLY. USE THE 
'BUFFERS-FULL* FLAG 'MESFLG* TO INDICATE TO THE 
WRITE COMPLETION ROUTINE THAT 'TX-READY' IS TO 
NOT BE SET. 



12-JAN-78 

A) FIXED THE TRANSITION INTO 
MISTAKE CAUSED LOCAL COPY 
INSTEAD OF CLEARED. 

B) USED THE PROTOCOL-BUFFERS-FULL FLAG 'MESFLG' TO 
IMPLEMENT A DUMMY LOOP TO EXECUTE UNTIL BUFFER 



REMOTE MODE 
AND CONTROL 



AN EDITING 
TO BE SET, 
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620 

621 
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SP..CE IS FREED UP, 
MODE IN PROTOCOL. 



WHILE NOT (!) IN PROGRAM I/O 



EDIT-09 



22- 

A) 



B) 



EDIT-10 



13- 
A) 



JAN-79 

CHANGED THE HANDLING OF APT PROTOCOL OUTPUT BUFFERS 
FULL, FOR THE LAST TIME. NOW. IF IN CONSOLE MODE. 
WITH BUFFERS FULL. HE ENABLE INTERRUPTS IN 'PUTAPO' 
AND SPIN IN AN ENDLESS LOOP. WITHIN THE ROUTINE. 
UNTIL ONE OF THE BUFFERS GETS FREED UP ON A POLL. 
IF IN PROGRAM I/O NODE. HE WILL INITIALLY STALL ON 
SETTING •TX-READY* BY SETTING 'MESFLG'; IF THE 
ROUTINE IS RF-SNTERRED ONCE THE ^LAG IS SET. WE 
WILL SPIN IN A LOOP AS FOR CONSQL" MODE. 
THESE CHANGES IMPACT THE CIB 'TX-K"4DY' INTERRUPT 
SERVICE ROUTINE. WHICH WAS MOVED 

FIXED AN ELUSIVE BUG WHERE THE CONSOLE WAS PUTTING 
A '13.' IN THE LAST BYTE OF APT PROTOCOL OUTPUT 
BUFFER. INSTEAD OF THE CORRECT BYTE OF ASCII TEXT. 
THE TYPE-BYTE FOR ASCII TEXT BLOCK WAS BEING OVER- 
LAID DUE TO THE 'COUNT-BACKWARDS-ONE ' LOGIC. 

•FEB- /9 

CHANGED THE FORMAT OF CONSOLE LISTING TO BE MORE 
CONSISTENT. AND COMBINED THE MACRO DEFINITIONS IN 
'STRMAC.MAC WITH THE CONSOLE MAIn SOURCE FILE. 
ADDED SOME COMMENTS. SUBTITILES. -ND FORMALIZED AN 
'ASSEMBLY AND LINK NOTES' SECTION. PLACED THE 
IDENTIFICATION MACROS SO THAT ThE LISTING WOULD BE 
HEADED PROPERLY. DID LOTS OF OTHER SIMILAR LITTLE 
THINGS WHICH BASICALLY CHANGE ONLY THE APPEARANCE 
OF THE LISTINGS. 



V03 

EDIT-00 15-FEB-79 

A) RENAME CONSOLE TO REFLECT FULL R.D 

V04 



FUNCTIONALITY. 



EDIT-00 16-FEB-79 

A) RENAME CONSOLE VERSION TO '04' TC AVOID CONFUSION 
WITH PX-03 (PROTOTYPE) RELEASES. 

EDIT-01 21-MAR-79 

A) ADDED THE 'XLOAD' COMMAND TO LOAD BINARY DATA; THIS 
COMMAND IS VALID IN THE REMOTE CONSOLE VERSION. 
WHEN LOADED BY APT. ONLY. 

B) REVISED ABSOLUTE ADDRESS REFERENCES TO RELOCATABLE 
RELATIVE ADDRESSES. TO ENABLE ASSEMBLY AND LINKING 
UKDER RSX11M. 

ED1T-02 8-APR-79 

A) RE-WROTE THE WAY 'IDENT' AND 'SPMES' MACROS WORK. 
SO THAT VERSION AND EDIT NUMBERS ONLY MUST BE 
CHANGED IN ONE PLACE. HOWEVER. THt NUMBER ARE 
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- 


657 ; 

658 : 

659 ; 




NOW IN OCTAL. LIMITING THE DIGITS TO THROUGH 7. 


EDIT-03 


ll-APR-79 


660 ; 




A) NOW INHIBIT ERROR MESSAGES PRINTING DURING AN 


661 ; 




•X' COMMAND BINARY LOAD. UNDER APT. FROM DEPOSIT 


662 ; 




ROUTINES. 


663 ; 






664 ; 


EDIT-04 


2-0CT-79 


665 ; 




A) REVERSED THE ORDER OF 'COUNT* AND 'ADDRESS' IN THE 


666 ; 




'X' COMMAND. THE SPEC SAYS THAT THE ADDRESS IS 


667 ; 
568 ; 

669 . 




FIRST FOLLOWED BY THE COUNT. 


EDIT-05 


18-DEC-79 


670 ; 




A) FIXED BUGS IN 'X* LOAD COMMAND. GETTING BYTE COUNT 


671 




OF COMMAND STRING AND COUNTING THE CARRIAGE RETURN 


672 




IN THE CHECKSUM. 


673 j 






674 


EDIT-06 


9-JAN-80 


675 




A) DISABLED ECHO OF COMMAND STRINGS IF LOADED BY 


676 ; 




APT MANUFACTURING. THIS IS AN ATTEMPT TO RUN AT 


677 ; 




9600 BAUD. 


678 






679 


EDIT-07 


17-JAN-80 


680 




A) 'RMRXDN' ROUTINE MUST SAVE EACM CHARACTER RECE.''ED 


681 




BECAUSE COMMAND CHECKSUM ON 'X' COMMAND COMES IN 


6f!2 




BEFORE THE COMMAND LINE CAN BE PARSED. 


683 ; 




B) DELETED 'TSTREM* AND 'TSTDIS' ROUTINES AND CHANGED 


684 




CALLS TO CALL THE EQUIVALENT ROUTINES IN ROM. 


685 






686 


EDIT-08 


18-JAN-80 (EDIT 10 OCTAL) 


687 




A) CHANGED 'PUfAPO' ROUTINE TO STALL IF ALTERNATE 


688 




BUFFER IS MORE THAN HALF FULL AND MAIN BUFFER 


689 




IS STILL BLOCKED. STALL IS 


690 




APPROXIMATELY ONE CHARACTER TIME AT 300 BAUD 


691 




(33 MILLISECONDS). 


692 




B) CHANGED CRC ROUTINE TO CALCULATE THE LOW BYTE 


693 




OF THE CRC INSTEAD OF TABLE LOOKUP. THIS SAVES 


694 




SOME MEMORY SPACE. 


695 




C) CHANGED 'RMTENT' SO THAT A CTRL P IS TURNED INTO 


696 




A CTRL C IF LOADED BY APT. 


697 






698 


EDIT-09 


23-JAN-80 (EDIT 11 OCTAL) 


699 




A) CHANGED GET COMMAND LINE INTERRUPT ROUTINE TO 


700 




SET THE XLOFLG IF THE FIRST CHARACTER OF THE 


701 




COMMAND LINE IS AN 'X' . 


702 




B) CHANGED 'RMRXDN' ROUTINE TO SKIP PROTOCAL CHECK 


703 




IF THE XLOFLG IS SET. 


704 




C) CHANGED THE X COMMAND EXECUTION ROUTINE TO DO THE 


705 




MEMORY DEPOSITS FASTER. 


706 




D) CHANGED THE SWITCH CHANGE ROUTINE TO PERFORM THE 


707 




CORRECT SETUP WHEN ENTERING LOCAL. AND REMOTE 


708 




DISABLE POSITIONS. 


709 




E) CARRIER ERROR MESSAGE IS ENABLED FOR LOCAL/TALK 


710 




MODE AND DISABLED WHEN CTRL P RECEIVED FROM 


711 




EITHER TERMINAL IN LOCAL/TALK MODE. 
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716 
717 
718 
719 
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721 
722 
723 
724 
725 
726 
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728 
729 
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731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
7".8 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
7 i9 
7 60 
761 
762 
763 
764 
765 
7 65 



M 1 



Page 3-4 



20-HAY-1986 



Fiche 1 Frame Ml 



Sequence 12 



F) CHANGED THE MCS LOAD ROUTINE TO NOT CLEAR ROM NOP 
UNTIL INIT IS ASCERTED. THIS SHOULD FIX AIDS 
°ROBL£M REPORT NUMBER AA248. 



******* 



V05 



EDIT 00 — 16 JUN 1980 

A) ADDED CODE TO SUPPORT EUROPEAN MODEM CONTROL. 

CODE IS CONDITIONALLY ASSEMBLED WITH THE PARAMETERS 
'CCITT5' (FOR 50 HERTZ CLOCK) OR 'CCITT6' (FOR 
60 HERTZ CLOCK. U.S. DEBUG). NOTE THAT EUROPEAN 
VERSION USES 'CCITT5*. 



B) FIXED BUG CAUSING SYSBOOT ERROR MESSAGE RELATING 
TO MCS/FPLA VERSION MISMATCHES. 



EDIT 



01 — 
A) 



26 SEP 1980 

FIXED BUG THAT CAUSED 'REBOOT' COMMAND 

AND LOAD HCS IF 780 IS NOT HALTED. 



TO TRY 



EDIT 02 - 



5 JAN 1981 
ADDED TEST ANU TYPEOUT FOR G 8 H FLOATING POINT FPLA. 
G&H FLOATING POINT IS DETERMINED TO BE PRESENT BY 
LOOKING AT BIT FPLA OUTPUT OF LOCATION 085(X). 
IF BIT IS SET. GSH IS PRESENT. 
ADDED CALL TO ROUTINES THAT GET/CHECK/TYPEOUT THE 
WCS/PCS/FPLA VERSION NUMBERS AFTER HCS LOAD COMMAND. 
MODIFIED HCS LOAD FUNCTION TO LOAD A MAXIMUM OF 2K 
MICRO WORDS IF GSH FPLA OPTION IS NOT PRESENT. 
CHANGED THE LENGTH OF THE 'USRBUF* FROM 512 BYTES TO 
384 BYTES. THIS GAINS 128 BYTES IN CONSOLE OVERLAY 
CODE SECTION. 

ADDED NEW EMT FUNCTION SU THAT THE KEY SWITCH CAN BE 
CHECKED kHEN RUNNING MICRO DIAGNOSTICS. THIS SHOULD 
FIX THE PROBLEM OF BEING IN THE WRONG STATE IF A 
REMOTE DISCONNECT OCCURS WHILE RUNNING MICRO DIAG'S. 
EDIT 03 — 27 JAN 1981 

MOVED MICRO CODE OPTION FLAG TO VMS EXAMINE AREA 

SO WCS LOADER PROGRAM CAN TELL IF GSH IS PRESENT. 

12 FEB 1981 

MODIFIED 'GETVER* ROUTINE TO FORCE MICRO MACHINE 

BACK TO UPC FRX) BEFORE FREE RUNNING THE CLOCK. 

25 FEB 1981 

FIXED BUGS IN 'DOLOAD' ROUTINE THAT LOADED TOO MANY 

BYTES. ALSO CHANGED TYPEOUT. IF LOADING WCS. TO 

"XXXX MICROWORDS LOADED* INSTEAD OF *XXXX BYTES 

LOADED'. 

CHANGED 'GSH PRESENT' MESSAGE TO 'KE780 PRESENT'. 

REDUCED 'USRBUF' TO 256 BYTES. 

6 MARCH 1981 

ADDED ROUTINE TO 'GETVER' ROUTINZ TO GET THE SIZE 

OF WCS PRESENT IN THE MACHINE. THIS INFORMATION 

IS STORE" IN 'WCSSIZ'. IN MICRO WORDS. 

ADDED A ST. IN WCS LOADER. TO CHECK IF LOAD WAS 

LARGER THAN THE WCS SIZE. IF IT WAS. PRINT OUT 



A) 



B) 
C) 

D) 



E) 



A) 



EDIT 04 -- 
A) 



EDIT 05 



EDIT 06 



A) 



B) 
C) 

A) 



B) 
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789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 
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802 

803 
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811 
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EDIT 07 






A) 
B) 



EDIT 10 -- 
A) 



B) 



» 1 1 * t » * 



V06 



IS LIMITED TO THE MCS SIZE. 

ADDED ADDRESS LIMIT CHECK TO EX/DE CONSOLE SPACE. 

FOUND THAT THE SYMBOL 'CCITT' ENABLES ASSEMBLY OF 

EUROPEAN CONSOLE NOT 'CCITT5' OR 'CCITT6'. FIXED 

CLOCK TIME TABLES TO ASSEMBLE THE CORRECT TIME 

FO!* 50 HERTZ MACHINES. 

9 flARCH 1981 

DELETED ROUTINE IN EDIT 6-A AND TEST IN EDIT 6-B. 

MODIFIED MCS LOADER ROUTINE TO ONLT LOAD 3K OF 

OF MICRO CODE IF KE780 OPTION IS PRESENT. 

23 hARCh *?61 

FORCED ?TAR T ADDRESS OF "LOAD/WCS" COMMAND TO BE 

10O0(X) 1^ /S" QUALIFIER NOT SPECIFIED. 

MODIFIED "aLATFN" ROUTINE TO SET "DEFNAM" BIT IN 

FLAG. THIS HILL CAUSE A L- A D/WCS" COMMAND MITH 

NO FILENAME TO LOAD THE WCiAXX.PAT FILE. 



EDIT 00 -- 4 MAY 1981 

A) RELEASE FOR TEST. 

EDIT 01 -- 19 MAY 1981 

A) ADDED 'WCSPRES* BIT TO 'FLAG*. THE BIT IS CLEARED 
ANV TIME THE CONSOLE IS OVERLAID. IT IS ONLY SET 
BY LOADING UCS. 'TSTVER' ROUTINE MILL TAKE FATAL 
MISMATCH EXIT IF BIT IS CLEAR. 

B) FIXED BUS IN 'WRTREM' ROUTINE THAT CAUSED 
APT/MANUFACTURI^ CONSOLE TO CRASH. 

EDIT 02 -- 6 AUG 198! 

A) ADDED CODE TO 'RSTPCL' TO CLEAR DOWN THE LCCAL 
AND REMCTE(NON PROTOCOL) WRITE QUEUE'S. THIS 
SHOULD FIX PROBLEM OF DISCONNECTS AND RECONNECTS 
IN EUROPEAN CONSOLE. 

EDIT 03 -- 10 AUG 1931 

A) fixed bug in code in edit 2 above, also, there is 

NO ( V)CM TO CLEAR DOWN I OCAL QUEUE. AFTER TESTING. 
I DON'T THINK IT'S REQUIRED ANYWAY. 
B: FIX!!D BUG THAT CAUSED THE "/NEXT" QUALIFIER NOT TO 
WORK WITH NUMBERS LARGER THAN 7FFF(X). CAUSED BY 
A SIGNED BRANCH AFTER DECREMENT IN I OOP CONTROL. 
1! AUG 1981 

CHANGED THE 'CHKSWH' ROUTINE SO THAT THE AUTO-RESTART 
SWITCH IS SENSED INDEPENDENT OF THE KEY SWITCH 
POSITION. NOTE, THAT THIS DOES NOT LOCK THE AUTO 
RESTART SWITCH WHEN VA A 'DISABLED' POSITION. 
17 AUG 1981 

•TIMEIT' CALL IS REALLY ONLY .5 SECONDS. NOT 2 
SECONDS. THIS CAUSES REMOTE RECEIVER INTERRUPT 
ROUTINE TO DROP DTR BEFORE CARRIER PRESENT HAS 
TIME TO ASCERT. THIS BUG ONLY FAILS WITH DF02 
MODEM IN U.S. REMOTE CONSOLE. MODIFIED WAIT FLU 
CARRIER TO BE 20 SECONDS. 
EDIT C6 -- 20 AUG 1981 

A) MODIFIED 'RKRXDN* (RCMOTE INTERRUPT SERVICE. TO 
DO THE RIGHT THINS (I THINK) WITH DTR IN THE 
U.S. REMOTE VERSION. 



EDIT 



EDIT 



0/> -- 
A) 



05 -- 
A) 






B 2 
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632 
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838 
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840 
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851 
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853 

854 

855 
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866 

867 
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871 
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EDIT 07 — 27 AUG 1981 

A) MODIFIED 'CHKSHH' ROUTINE TO CLEAR 'LOCAL CONTROL' 
FLA6 WHEN ENTERING REMOTE DISABLE. 

B) MODIFIED EXIT PROTOCOL ROUTINE TO REENABLE CIB 
INTERRUPTS UNCONDITIONALLY. 

C) MODIFIED CCITT MODEM HANDLING ROUTINE TO WAIT 

4 SECONDS BEFORE REASCERTING DTR AFTER ABORTING 
A CALL. 

mitm Vfl7 

LDIT 00 — 14 SEP 1981 

A) FIXED BUG INTRODUCED IN VERSION 6.3(B) CAUSING 
'NEXT* QUALIFIER NOT TO WORK. 

........ v00 (10 OCTAL) 

EDIT 00 -- 09 MAY 1983 

A) CHANGED CODE TO SUPPORT UPLINE TRANSFER OF BINARY 
FILES OVER THU REMOTE PORT. (DOES A BRANCH EVEN 
WHEN A TAB IS SEEN.) 

B) CHANGED CODE TO SUPPORT DOWNLINE TPANSFER OF BINARY 
DATA OVER THE REMOTE PORT. (CLEARS ENTIRE UPPER BYTE 
OF THE RECEUID DATA.) 



****.*.. 



NOTE: Edits to :hange to version 8 are designated by 
V09 (11 OCTAL) 



• * *Q . . ' 



'8' 



in the conraent 



EDIT CI -- i.j OCT 1985 

PROBLEM: 

EU00257 

ITTERMITTENT CONSOLE. SYS HALT AT 146760 CAUSED BY 

PROCESSOR INTERRUPTS WHEN WE ENTER A 'PUTWRD' ROUTINE. 

RESOLUTION: 

A) SET PRIORITY TO DISABLE INTERRUPTS WHEN ENTERING THE 
'PUTWRD' ROUTINE VIA A JSR. 

B) Zi: TIMEOUT PARAMETER TO A LARGER VALUE TO GIVE 
STAR MORE TIME TO GET A CHARACTER. WE DO NOT WANT TO 
DROP ANY CHARACTERS WHEN TRANSFERRING FROM A REMOTE 
SITE. 

RESOLUTION TO THIS PROBLEM CAME FROM REMOTE SERVICES 
EUROPE. 



PROBLEM: 



EU00169 

ITTERMITTENT HALT AT ADDRESS 35076 WHEN DOING A FILE 
TRANSFER FROM A VAX SYSTEM TO THE RDC HOST VIA THE 
REMOTE CONSOLE. CAUSE: QBUS ERROR WHEN CONSOLE TRIES 
TO EXECUTE A BIT SET INSTRUCTION TO THE TX RDY BIT. 
THE ERROR OCCURS IN 'TXSETR' THE MOST ACTIVE ROUTE TO 
GET HERE IS VIA THE CIB TXRDY INTERRUPT ROUTINE 
'TXRENT'. TXRENT jUMPS US TO THE 'SENDST' *ND "PUTWRD 
ROUTINES WITH INTERRUPTS ENABLED. ALLOWING THE 
POSSIBILITY OF HAVING THE QUEUE AND LSI/VAX PROTOCOL 
CORRUPTED. 
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Sequence 15 



RESOLUTION: 

SET PRIORITY TO DISABLE INTERRUPTS AFTER ENTERING THE 

'TXRENT * 

CHECK THE RDY BIT AND IF SET DON'T BOTHER IT. 

SOME MORE EDITS: 

SOME OF THESE EDITS HERE INCORPERATED IN THE 785 CONSOLE 
HOWEVER HERE NOT IMPLIMENTED IN THIS 780 CONSOLE. 

1) FIXED AN ADDRESSING MODE BUG AT LINE 1703. THE 
'BIT 1ENDBLK.R2* IS CHANGED TO 'BIT fENDBLK. (R2) ' . 
COMMENTS ARE AT THAT LOCATION. 

2) ELIMINATED CHARACTER CHECKING ON RD UNLOADS. 
TAB-TO-SPACE CONVERSION AND FILL CHARACTERS AFTER <CR> 
OR <LF> CAUSE BINARY TRANSFER PROBLEMS. 



NOTE 



Edits to change to version 9 are desig ated by 



• * *o * « • 



in the comment 
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Sequence 16 



898 
929 

930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 



.SBTTL 



CONSOLE ASSEMBLY AND LINK NOTES 
CONDITIONAL ASSEMBLY FLAGS : 
•REMVER' 



'APTDBG' 



'NOTLSI* 



•APTBLD* 
'CCITT' 



IF DEFINED. REMOTE SUPPORT IS INCLUDED 
IF UNDEFINED. NO REMOTE SUPPORT 

IF DEFINED. ALL UNEXPECTED TRAPS WILL HALT 

AT LOCATION 26 (DEBUGGING AID) 
IF UNDEFINED. TRAPS THROUGH NORMAL VECTORS 

IF DEFINED. ASSEMBLY WILL CAUSE 'MOVTOPSW 

MACRO TO ASSUME NO 'MTPS* INSTRUCTION 
IS AVAIIABLE 

IF NOT DEFINED. 'MOVTOPSH* MACRO ASSUMES USE 
OF *MTPS' IS LEGAL 

BUILDS A SPECIAL APT VERSION OF REMOTE CONSOLE 

IF DEFINED. CCITT SUPPORT IS INCLUDED 
IF HQ1 DEFINED. NO CCITT SUPPORT 
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951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 
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970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 
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989 

990 
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996 
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Fiche 1 Fraie E2 



Sequence 17 



.SBTTL DECLARATIONS AND MACROS 



140000 

140000 
140004 



032560* 



140012 
140016 
140022 
140026 



032300* 
032356* 



;GLOBAL DECLARATIONS (USED EXTERNAL TO CONSOLE PROGRAM) 

; 1) NON-RELOCATABLE TEMPS. REFERENCED BY ROM-RESIDENT SOFTWARE 

..LOBL SHIFTS. CNVCHT. RADIX. LENGTH. CONTNP.TEMSTR.KDNVEC 

. -OBL KUSCNT.KBFADD.KBYCNT.RXCQE.SPCCNT.SPCCHR.FLPTIH 

.GLOBL TERF IL .POSCNT .RXLOE .CONRES .NEUCOD .NEUEMT .DEADHK 

.GLOBL NXTSEG.STRTBL.SECNUH.MESADD.NOBYTS.URTRMP 

.GLOBL ECHOSV.STARCR.HAITPT.FILERR.DIRENT.AVAILP 

GLOBL UBFPNT.HDNVEC.HBTCNT.RXSTSC.RXSPFC.RXBFAD.RXBTCT 

.GLOBL RXDNVC.HRTQ.UE.USRRE0..KBDDON.PRTDON.SPCFLG.ERRC0D 

.GLOBL ROFLAG. SAVER. RXERRO.FRQDON .FDRV1 .TSTHLP.WAITLK 

.GLOBL FLAG.LINGOT.RXFUN2.BYTCNT.BUFRAD.RXTRY 

.GLOBL INTINT.RXLSN.PHYTRK.EFINST.DEFRAD.PGMIOH.PASS1 

.GLC3L TCTFLG.MICFLG.TRBYT. CUTOFF. CKXMT1 .CHKLCI .BUF1PT 

.GLJBL BOOTFL.TIHFLG.RHXCSR.RMRBUF.RMRCSR.CHKFLP 

.GLOBL NOREHT.NODRV1.CHKXMT.APTBFO 

.GLOBL LTEHBF.RTEHBF.FILLP.EMPTYP.OUECNT.FLDTFL.BUFPNT 

.GLOBL KOUNTR.FLPFCT,DATVEC.FLPSTA.FSECTOR<FTRACK.FLDONE 

.GLCBL QUEBGN.QUEEND.RMTQUE 

.GLOBL REMONL.LASPOS.SYNC.OPNCHK 

.GLOBL RMTXPT.EXTKPT.BASEAD 

; 2) NON-REDEFINABLE DEFINITIONS USED BY CONSOLE ROM 
.GLOBL COMQAL.TOIDHI.TOIDLO.ROUSPR.FMinLO.FMIDHI 
.GLOBL RXDNE .RXDONE .TXRDY .TXREAD.SFWDON .SOFCOM 
.GLOBL MCS .TLKMOD .LOCCNT .LOCCOP .REHECH 
.GLOBL REMOT .LOCKD .FLPYOF .RCSR .RBUF .XCSR .XBUF 

; D FIXED ROM ENTRY POIKTS 

?OMBAS=140000 .-CONSOLE ROM BASE ADDRESS 



RESTAR=ROMBAS-00 
CLKSEP=ROHBAS*04 



.•CONSOLE REBOOT ADDRESS 
.-CLOCK SERVICE VECTOR 



.lllltltttlllllltllKltltlXltllttllllllllilllllttttllllttKIt 

!-CTXINT=ROMBAS*06 ;TX RDY INTERRUPT SERVICE VECTOR 

CTXiNT=TXRLNT ;•«• 

.iiiiiiiiitiiitiiittttiiiitiiiiiiiittiiiiiitiittiiiiitiiitiiii 



CRXINT=PQMBAS-12 
EMTSER=R0MBAS*16 
C0NVRT=R0MBAS*22 
DXPREI=ROMBAS-26 



.SX DNE INT SERV VECTOR 
;FMT TRAP SERVICE VECTOR 
.•ASCII CONVERSION RTN VECTOR 
.•FLOPPY INT SERV VECTOR 



,itiiiiiitttiiitiiitiitiiiiii>iiiiiitiitiiiiiitiiiitiiitittiii 

!-PRTlNT=R0MBAS*32 .-CONSOLE PRINTER INT SERV VECTOR 

PRTINT=KLUDG2 ;'«• 

;KBDINT=R0MBAS*36 .-CONSOLE KBD INT SERV VECTOR 

KBDINT=KLUDG3 ;*** 

, t It ttt tt tM t I t tM t I llti I t I IH t «lt II t l t t tt II t II It t tt M Mt II l l t 
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1006 


140042 


1007 


140046 


1008 


140052 


1009 


140054 


1013 


140056 


1015 




1016 




1017 




1018 


036622 


1019 




1020 




1021 


140064 


1022 


140066 


1023 


140070 


1024 


140072 


1025 


140074 


1026 


140100 


1027 




1028 




1039 




1040 




1041 




1075 




1076 




1077 




1078 




1079 




1080 


173006 


108 1 . 


173010 


1082 


173014 


1083 


173016 


1084 


173020 


1085 


173022 


1086 


173024 


1087 


173026 


1088 


173030 


1089 


173032 


1090 


173034 


1091 


173036 


1092 




1093 




1094 




1095 


100000 


1096 


000100 


1097 


000200 


1098 




1099 




1100 


100000 


1101 


010000 


1102 


002000 


1103 


000400 


1104 


000200 


1105 


000100 


1106 


000040 


1107 


000010 



L0DMIC=R0MBAS*42 
TYPEIT=R0MBAS-46 
ZFILLP=R0MBAS*52 
RSAVEP=RCMBAS-54 
0THRTP=R0MBAS*56 

.ititititfimttti 

!-RENENP=R0MBAS*62 
REHENP=RHTVEC 

.Itlttttttttttlttt 

f 

GETRNP=R0MBAS+64 
PUTRNP=R0MBAS*66 
PUTAVP=ROMBAS*70 
WRTLCP=R0MBASW2 
RVSTER=R0MBAS-74 
REBCON=RONBAS+100 

REGISTER DEFINITIONS 



.•FLOPPY AND TERMINAL ERROR CODES 



;CIB DEFINITIONS 

IDDATL=173006 

IDDATH=173010 

RXDONE=173014 

TXREAD=173016 

TOIDLO=173020 

TOIbHI=173022 

FMIDLO=173024 

FMIDHI=173026 

IDCNTL=173030 

MCR=173032 

MCS=173034 

VBUSR=173036 



;IDCNTL BITS 

IDCYCL=100000 

IDWRIT=100 

IDMANT=200 

;MCR BITS 

HLTREQ=100000 

CPURE5=10000 

MAINTR=2000 

STRIND=400 

ROMNOP=200 

SOMMB=100 

CLKSTD=40 

FREQ0=1 



OVERLAY LOADER ENTRY POINT 

MESSAGE TYPING RTN ENTRY 

FLOPPY DRIVER EMPTY/FILL BUFFER RETURN 

REGISTER SAVING ROUTINE POINTER 

ALL OTHER TRAPS VECTOR 



ItttltlllllttllllllllttttttttlKlttllltllttl 

.-REMOTE INPUT ENTRY TO KBD SERVICE 



;•«' 



Mltttttltlllltlttltllllllttlltttlllltitltll 



GET A BYTE FROM RING BUFFER 
PUT A BYTE IN A RING BUFFER 
RETURN A NODE TO AVAILABLE NODE LIST 
WRITE TO LOCAL TERMINAL ONLY ENTRY 
ENTRY TO REVERSE TERMINAL ADDRESSES 
ENTRY TO REBOOT CONSOLE 
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1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 



DECLARATIONS 
MACRO V05.03 
AND MACROS 

000020 
000004 
000002 
000001 



010000 
004000 
000400 

000100 
000040 
000004 
000002 
000001 



AND MACROS 
Friday 25-Apr-86 10:56 Page 5-2 



FREQ1=20 
STS=4 
SBC =2 
PROCED=l 

;MCS BITS 

FLPYOF=10000 

BOOTBT=4000 

RUNBIT=400 

;CNSLAK=200 

RDTIE=100 

DNEIE=40 

AUT0RS=4 

REMOT=2 

LOCKD=l 



G 2 



20-MAY-1986 



Fiche I Frame G2 



Sequence 1? 



000020 

000002 
000001 



000200 

000200 



;VBUSR 



;RXDONE 



,-TXREAD 



DEFINTIONS 
;CPT0=200 
;CPT1=100 
;CPT2=40 
CPT3=20 
;SLFTST=4 
VL0AD=2 
VCLK=1 

BITS 
RXDNE=200 

BITS 
TXRDY=200 



1140 




;STAR CONTROL STORE ROUTINE ADDRESSES 


1141 


000440 


CPHYSE=440 




1142 


000442 


CGREGE=442 




1143 


000444 


CPREGE=444 




1144 


000447 


C0NC0N=447 




1145 


000452 


SBIUNJ=452 




1146 








1147 




:ID BUS ADDRESSES 




1148 


000014 


CESREG=14 


ADDRESS OF 'CES' REGISTER 


1149 


000026 


ID16=26 


ADDRESS OF ACCELARATOR PC 


1150 


000040 


IDAUST=40 


ADDRESS OF MICRO-STACK 


1151 


000042 


HCSADD=42 


ADDRESS OF HCS ADDRESS REG 


1152 


000043 


WCSDAT=43 


ADDRESS CF WCS DATA REG 


1153 


000061 


Tl=61 


ID BUS TEMP 1 


1154 


000062 


T2=62 


ID BUS TEMP 2 


1155 


000063 


T3=63 


•ID BUS TEMP 3 


1156 


000022 


TBUF0=22 


•TBUF DATA GROUP 


1157 


000023 


TBUF1=23 




1158 


000031 


SBIERR=31 




1159 


000032 


SBIADD=32 




1160 


000036 


CACPAR=36 




1161 


000056 


DSV=56 




1162 
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1163 




1164 


000066 


1165 




1166 




1167 




1168 


000001 


1169 


000002 


1170 




1171 




1172 




1173 


000006 


1174 




1175 




1176 




1177 




1178 




1179 


000013 


1180 




1181 


000421 


1182 


010421 


1183 


007600 


1184 


000205 


1185 


010000 


1186 


030000 


1187 


020000 


1188 




1189 




1190 




1191 




1192 




1193 




1194 




1195 


037766 


1196 


03777u 


1197 


037772 


1198 


037774 


1199 




1200 


000314 


1201 


000310 


1202 




1203 


100000 


1204 


040000 


1205 


020000 


1206 


010000 


1207 


004000 


1208 


002000 


1209 


000200 


1210 


000100 


1211 


000100 


1212 


000040 


1213 


000004 


1214 


000002 


1215 




1216 




1217 


037756 



INTERNAL (PROCESSOR) 
INTR36=66 

"D.SV ERROR CODES 
;SUCCES=0 
MEMFAL=1 
C0NERR=2 
INITDN=3 
INTINV=4 
DBLHLT=5 
hLTINS=6 
ILLVEC=7 
NOUUCS=10 
INTPEN=11 
CHf.ERR = 12 
PRGERR=13 
LASERR=13 

PCVERS=421 

HCVERS=10421 

FPVERS=7600 

MOPTFL=205 

FIRSTU=10000 

RESLSB=30000 

RESMSB=20000 



REGISTER DEFINITIONS 
.-'QUAD CLEAR' REGISTER 



Fiche . Frame H2 



(HEX ADDRESS 36) 



Sequence 20 



SUCCESSFUL COMPLETION 

MEMORY FAULT 

ERROR ON CONSOLE REQUEST 

INITIALIZATION DONE 

INT STACK NOT VALID 

CPU DOUBLE ERROR HALT 

HALT INSTRUCTION EXECUTED 

ILLEGAL I/E VECTOR 

NO USER UCS 

INTERRUPT PENDING ON HALT 

CHANGE MODE ERROR 

ERROR ON PROCESSOR REGISTER REFERENCE 

LAST VALID ERROR CODE 



FROM CONSOLE 

iittiitmititittittititittti 



LOC 11KHEX) CONTAINS PCS VERSION 

LOC 111KHEX) CONTAINS HCS PRIMARY VESION 

LOC F80(HEX) CONTAINS FPLA VERSION 

LOC 85(HEX) CONTAINS MICRO CODE OPTION FLAG 

MRST UCS ADDRESS FOR UCS ECO FILE LOAD 

HARM RESTART ADDRESS(LSB*S) 

WARM RESTART ADDRESS(MSB 'S) 



iiiiitiiititiitlttittliitttttttilititttitititii 

NOTE: THESE ADDRESS ASSIGNMENTS MUST NEVER BE CHANGED BECAUSE 
THESE POINTERS ARE USED IN ROUTINES BLASTED INTO THE 
CONSOLE ROM 

lillHtlltltttttllKlttttltlllltllttltttltlltlt 

RMRCSR=37766 
RMRBUF=RMRCSR*2 
RMXCSR=RMRCSR*4 
RMXBUF=RMRCSR*6 



RMTXVC=314 
RMRXVC=310 



DSTINT 
RINGDT 
CLRSND 
CARDET 
RCVACT 
DSTRDY 
RCVDON 
RCVINT 
XMTINT 
DATINT 
REQSND 
DATRDY 



=100000 
=40000 
=20000 
=10000 
= 4000 
=2000 
=200 
= 100 
= 100 
= 40 
= 4 
= 2 



.•REMOTE TRANSMITTER INTERRUPT VECTOR 
.•REMOTE RECEIVER INTERRUPT VECTOR 

DATASET INTERRUPT 
RING DETECT BIT 
CLEAR TO SEND 
CARRIER PRESENT 
RECEIVER ACTIVE 
DATASET READY 
RECEIVER DONE 
RECV INT ENA 
XMIT INT ENA 
DATA STATUS INT ENA 
REQUEST TO SEND 
DATA TERMINAL READY 



.•LOCAL 



TERMNINAL ADDRESSES 
RCSR=37756 



ZZ-ESKAA-10.1 DECLARATIONS AND MACROS 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

DECLARATIONS AND MACROS 
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Fiche 1 Frane 12 



Sequence 21 



1218 


037760 


1219 


037762 


122P 


037764 


1221 


000064 


1222 


000060 


1223 




1224 




1225 




1226 


037600 


1227 


037744 


1228 




1229 




1230 


000001 


1231 


000000 


1232 


0C0001 


1233 




1234 




1235 


037745 


1236 


037746 


1237 




1238 


037747 


1239 


037750 


1240 


037751 


1241 


037752 


1242 


037753 


1243 


037754 


1244 


037755 


1245 




1246 




1247 




1251 


040000 


1253 




1254 




1255 000000 




1256 000000 




1257 





RBUF=RCSR*2 

XCSR=RCSR-4 

XBUF=RCSR-6 

LCTXVC=64 

LCRXVC=60 



.-LOCAL TRANSMITTER INTERRUPT VECTOR 
.•LOCAL RECEIVER INTERRUPT VECTOR 



.-AREA OF CONSOLE MEMORY EXAMINABLE BY STAR 



FRSFIX=37600 
MICOPT=FRSFIX-144 



OPTMSK=001 
NOOPT =000 
GHOPT =001 



.-BASE ADDRESS ADDED TO OFFSET 

; MICRO CODE OPTION FLAG. BIT<0> CONTAINS 

; CODE OPTION OF THE MACHINE. THE REST OF 

; MUST BE ZERO. 

; MASK FOR MICRO CODE OPTION BITS 

NO OPTION °RESENT 
: G & H FLOATING POINT PRESENT 



THE 
THE 



MICRO 
BITS 



WRMSTR 
CLDSTR 

APTLOD 
LASPOS 
AUTFLG 
PCSVER 
WPMVER 
MSCVER 
FPLVER 



.•EDIT-16 IMPLEMENT COLD/HARM START FLAGS 



:FRSFIX-145 
:FRSFIX*1<»6 

;END EDIT-16 
=FRSFIX*147 
=FRSFIX*150 
=FRSFIX*151 
=FRSFIX-152 
=FRSFIX*153 
:FRSFIX-154 
:FRSFIX*155 



.•WARM-START FLAG 
;COLD-START FLAG 

;NON-ZERO WHEN CONSOLE LOADED BY APT 

.-HOLDS LAST INFO ON MODE BITS FROM MCS(LCHER 2 BITS) 

;0 WHEN AUTO-RESTART DISABLED. -1 WHEN ENABLED 

.-PCS VERSION BYTE 

;WCS PRIMARY VERSION BYTE 

;WCS SECONDARY VERSION BYTE 

,-FPLA VERSION BYTE 



LSI-11 PHYSICAL HEMORY LIMIT 
MEMSIZ = 40000 

.tiitiitmii«iiiitintiiinmii<itiiiiiii<«iiiititi»tmtiiiimi 

SREGDF 

$C0DDF 
.»*»****t*««t**ttt«ttt***«*««**«»*»*»*»*tt*»ttt«t*»t*t***»««t*«t»*t 



ZZ-ESKAA-10.1 HACRO 
V10-01-L HACRO 
MACRO DEFINITIONS FOR 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1273 

1274 

1304 

1305 

1321 

1322 

1323 

1332 

1333 

1334 

1364 

1365 

1366 

1396 

1397 

1398 

1402 

1403 

1404 

1408 

1409 

1410 

1414 

1415 

1416 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1447 

1*48 

1449 

1450 

1451 

1452 

1453 



DEFINITIONS FOR STAR CONSOLE 
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STAR CONSOLE 



20-MAY-1986 



Fiche 1 Frame J2 



Sequence 22 



.SBTTL MACRO DEFINITIONS FOR STAR CONSOLE 

.•MACRO DEFINITIONS FOR STAR CONSOLE 
;M.J. HARE -- DECEMBER 1977 

tiitiiiMiitittttitiitiittttiittiiiiiititiiiiriititiitititttttii 

EMT SERVICE MACROS 
t*t«**«*»t**»»*»«t«t«*»«t*t«t»«t«»»»t«t«tt«*«»ti«t»t«***«t«t»»«t 



INITIALIZE THE TERMINAL 
WRITE TO THE TERMINAL 
READ FROM THE TERMINAL 



(TINIT=EMT 0) 

(THRITE=EMT 1 ; RMHRON=EMT 15 : LCWRON=EMT 16) 

(TREAD=EMT 2) 



.-OPEN A FILE ON FLOPPY DRIVE (OPENFL=EMT 3) 



;READ FLOPPY SECTOR(S) 



.•WRITE FLOPPY SECTOR(S) 



.•LOAD CONSOLE W/ HCS ECO'S 



.•ASCII OTPUT CONVERSION 



.•RETURN DEFAULT RADIX IN R2 



(READSC=EMT 4) 



<WRITSC=EMT 5) 



(LOADCN=EMT 6) 



(CNVERT=EMT 7) 



(RADGET=EMT 10) 



;OPEN A FILE ON FLOPPY DRIVE 1 (0PNFL1=EMT 11) 

TYPEMES MACRO (TYP1=EMT 12 ; TYP2=EMT 13) 

FORMAT: TYPEMES ARG..CRFLAG 

ARG=SOURCE OF STRING TO TYPE. FIRST BYTE IS I OF BYTES IN STRING 
(IF BLANK. MESSAGE POINTER IS ON STACK) 

CRFLAG= IF NOT BLANK. TYPE A CR AND LF BEFORE STRING 



LOAD CONSOLE W/O WCS ECO'S 
.MACRO LDCKNW 
EMT LCANWC 
.ENDM LDCNNW 



(LCANWC=EMT 14) 

;THIS MACRO IS NEVER USED. EITHER RESTART 
.-CONSOL.SYS ALREADY LOADED. OR ELSE DO A 
.•COMPLETE RELOAD WITH WCS. (LOADCON). 



ZZ-ESKAA-1 
V10-01-L 
MA^RO DEF1 

1454 
1455 
1456 
1457 
1458 
1459 
1460 
1464 
1465 
1466 
1470 
1471 
1475 
1476 
1480 
1481 
1485 



0.1 MACRO DEFINITIONS C 0R STAR CONSOLE 

MACRO V05.03 Friday 25-Apr~36 10:56 
NITIONS FOR STAR CONSOLE 



K 2 



Page 6-1 



20-MAY-1986 



<RMWRON=EMT 15 
(LCURON=EMT 16 



Fiche 1 Frame K2 



-- SEE *T$URITE) 
-- SEE 'TSURITE) 



;TIME-0UT MACRO (TMERTR=EMT 17) 

COUNT A DELAY OF APPROX. ONE HALF SECOND 



RESET LSI- 11 (R$SET=EMT 20) 

LOAD CONSOL.SYS AND WCS ECO'S. (LDCONS=EMT 21) 

INDICATE IF CC1TT MODEM HANDLING IN USE. (MDMTYP=EMT 22) 

CHECK POSITION OF KEY SWITCH (CHKSMITCH=EMT 23) 



Sequence 23 



L 2 
ZZ-ESKAA-10.1 MACRO DEFINITIONS FOR STAR CONSOLE 20-MAY-1986 Fiche 1 Fraae L2 Sequence 24 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 7 
MACRO DEFINITIONS FOR STAR CONSOLE 

1487 ,itttttttitiittiitititititiiiittitttiittiii)tmiitiiiiiittitttt 

1488 i UTILITY MACROS 

1489 .iittitiiititiititiiititiitiittttitiiitiitiitiiitttiiiiuiititii 

1490 
1491 
1492 

1493 ;MOVE TO PSH MACRO 

1494 ; IF -NEHPSW FIELD OF CALL IS BLANK. NEW PSH ASSUMED ON STACK 
1495 

1512 

1513 

1514 .-OPEN A FILE 

1519 

1520 

1521 .-CREATE AN ASCII MESSAGE 

1528 

1529 

1530 .-TYPE A MESSAGE (SET-UP FOR TYPEMES MACRO) 

1536 

1537 

1538 .-CREATE A ZERO-DATA BLOCK 

1542 

1543 

1544 .-CREATE A BLANK DATA BLOCK STARTING AT PC LOCATION 

1545 ; AND HP TO ADDRESS 'NUMB' 
1552 



ZZ-ESKAA-10.1 


V10-01-L 


V10-01-L 


MACRO V05.03 1 


1555 




1556 




1557 




1558 


000000* 


1559 




1560 000000 


000240 


1561 000002 


000411 


1562 




1563 000004 


000636* 


1564 000006 


000340 


1565 




1566 


002000 


1567 


004000 


1568 




1569 




1570 


000001 


1571 


000002 


1572 


000006 


1573 


000041, 


1574 




1575 


177170 


1576 




1577 




1578 000010 




1579 000014 


000104' 


1580 000016 


000340 


1581 




1582 000020 


000166* 


1583 000022 


005340 


1584 




1585 000024 


G91004* 


1586 000026 


011706 


1587 000030 


012702 000200 


1588 




1589 000034 


005000 


1590 000036 


005200 


1591 000040 


011703 


1592 000042 


000003 


1593 000044 


105067 037747 


1594 000050 


000453 


1595 




1596 000052 




1597 




1598 000100 


000174' 


1599 000102 


000340 


1600 000104 




1601 '00104 


162701 000200 


1602 jOOIIO 


010146 


1603 000112 


012701 000200 


1604 000116 


012704 177170 


1605 000122 


010405 


1606 000124 


012725 


1607 000126 


000007 


1608 000130 


000004 


1609 000132 


010315 



n 2 



Friday 25-Apr-86 10:56 Page 9 



20-MAT-1986 



Fiche 1 Frane M2 



Sequence 25 



.SBTTL 
.3BTTL 



RETRY 



READS: 



CONSOLE FLOPPY BOOT 



BASE=. 

240 
BR 

.WORD 
.WORD 



RETRY 

NOREMO 
340 



;USED FOR LOCATION COUNTER SETTING 
;A NOP FOR LOAD CHECK 



PERM=2000 
ENDBLK=4000 

.•FLOPPY FUNCTION DEFINITIONS 



CSGO=l 
CSEBUF=2 
CSRD=6 
CSD0Nt=40 

RXCS=177170 



FILLTO 14 
.WORD READS 
.WORD 340 



.WORD 
.WORD 

.WORD 

MOV 

MOV 

CLR 

INC 

MOV 

BPT 

CLRB 

BR 



MAITRT 
340 

APTSRT 
9PC.SP 
#200. R2 

RO 
RO 
SPC.R3 

APTLOD 
B00T2 



FLOPPY START 
EMPTY BUFFER 
READ SECTOR 
RX DONE 

;RXCS STATUS REG 



;BPT GOES TO READ SECTOR 
;PSH GETS 'INTERRUPTS OFF' 

;IOT GOES TO FLOPPY WAIT 



APT LOAD STARTUP ADDRESS POINTER 
POINT SP TO "SAFE" ADDRESS (VALUE OF NEXT 
R2 POINTS TO LOAD ADDRESS OF NEXT PART 
OF BOOT 



.-READ SECTOR 3 NEXT (BPT INSTR. = 003) 
;CALL READ SECTOR 
.-REMEMBER CONSOLE BOOTED 



INSTRUCTION) 



FILLTO 100 

.WORD RTIRET 

.WORD 340 

;READ SECTOR SUBROUTINE 

SUB #128. .Rl 

MOV Rl.-(SP) 

MOV #128. .Rl 

MOV #RXCS.R4 

MOV R4.R5 

MOV (PC)+.(R5)* 

.WORD CSGO*CSRD 

IOT 

MOV R3.3R5 



tIGNORE CLOCK 1NTS WHILE BOOTING 

;R1 hAS # OF BYTES TO BE READ 

.-SAVE REMAINING # OF BYTES 

.•NUMBER OF BYTES IN SECTOR 

;POINT R4 TO FLOPPY STATUS REGISTER 

;R5 ALSO 

;START READ AND POINT R5 TO RXDB 

•CALL WAIT 

JLOAD SECTOR NUMBER 



ZZ-ESKAA-10.1 CONSOLE FLOPPY BOOT 
ViO-Ol-L MACRO V05.03 Frida 
CONSOLE FLOPPY BOOT 



000003 



1610 


000134 


000004 


1611 


000136 


010015 


1612 


000140 


000004 


1613 


000142 


012714 


1614 


000146 


000004 


1615 


000150 


105714 


1616 


000152 


100376 


1617 


000154 


111522 


1618 


000156 


005301 


1619 


000160 


003373 


1620 


000162 


012601 


1621 


000164 


000002 


1622 






1623 


000166 




1624 


C00166 


005714 


1625 


000170 


001776 


1626 


000172 


100715 


1627 


000174 


00000° 


1628 






1629 


000176 




1630 






1631 


000200 


122323 


1632 


000202 


000003 


1633 


000204 


122323 


1634 


000206 


000003 


1635 


000210 


012737 


1636 


000216 


000501 



000334* 000020 







N 2 


20- 


■MAY-1986 Fiche 1 Prase N2 


y 25-Apr-86 


10:56 
IOT 


Page 9-1 




•WAIT 




MOV 


RO.aRS 




LOAD TRACK t 




IOT 






•WAIT 




MOV 


#CSGO*CSEBUF, 


3R4i 


FUNCTION=EMPTY BUFFER 




IOT 






•WAIT 


4$: 


TSTB 


9R4 




•TEST FOR TR FLAG 




BPL 


4$ 




•BR IF TR NOT UP 




MOVB 


aR5.<R2)+ 




•STORE BYTE IN MEM 




DEC 


Rl 




•BYTE CNT MINUS 1 




BGT 


4$ 




•BR IF MORE 




MOV 


(SP)*,R1 




•RESTORE REMAINING BYTE COUNT 




RTI 








HAITRT: 


;HAIT 


FOR TR. ERROR. 


OR DONE 




TST 


aR4 




;CHECK TR, ERROR. DONE 




BEO 


WAITRT 




;BR UNTIL ONE COMES UP 




BMI 


RETRY 




•START AGAIN IF EkROR (MSB SET) 


RTIRET: 


RTI 










FILLTO 200 






BC0T2: 


CMPB 
BPT 


(R3)*,(R3)+ 




; SECTOR 1 TO 5 
;CALL READ SECTOf. 




CMPB 


<R3)*.(R3>* 




iSECTOR t TO 7 




BPT 






rCALL READ SECTOR 


020 


MOV 
BR 


#TRUAIT,a*20 
B00T3 




rSET NEW TR WAIT VECTOR 



Sequence 26 



ZZ-ESKAA-10.1 CONSOLE FLOPPY BOOT 
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CONSOLE FLOPPY BOOT 



B 3 



20-MAY-1986 



Fiche 1 Fraae B3 



Sequence 27 



1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
-.648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
16/6 
1677 
1678 
167? 
1680 



1681 
1682 
1683 
1684 
1685 
1686 
1687 
168b 



000220 
000222 
000224 
000226 
000230 
000232 
000236 
000242 
000244 
000250 
000252 
0C0254 



000256 
00026G 
000262 
000264 
000270 

000272 
000274 
00U276 
000300 
000302 
009304 
000306 
000312 
000314 
000320 
000322 
000324 
000326 
000330 
000332 

000334 
000336 

000340 
00034? 
000346 
000351 
000354 
000357 
000362 
000364 



OC040C 
300404 
000410 
000412 
000414 



006300 
006300 
006301 
010046 
010003 
012700 
022703 
101002 
062703 
006103 
005300 
003370 



110300 
135003 
000303 
022703 
005103 

006300 
060003 
060003 
060003 
006200 
005200 
162703 
002375 
062703 
000003 
012600 
005200 
005701 
003336 
000207 

005714 

001776 

100315 

004067 

012 

055 

117 

122 

122 



112037 
105737 
100375 
105710 
001371 



000010 
006400 

171400 



READ: 
10$: 
1$: 
2$: 



O0CO14 



• FLOPPY INTERLEAVE 


ASL 


RO 


ASL 


RO 


ASL 


Rl 


MOV 


RO.-(SP) 


MOV 


R0.R3 


MOV 


#8..R0 


CMP 


#6400, R3 


BHI 


2$ 


ADD 


#171400. R3 


ROL 


R3 


DEC 


RO 


BGT 


1$ 




;END OF DIV 




SECTOR 


MOVB 


R3.R0 


CLRB 


R3 


SWAB 


R3 


CMP 


#12. .R3 


ROL 


R3 



ALGORITHfl 

CHANGE LOGICAL BLOCK 



000032 
000033 



3$ 



000036 
077 
111 
040 
122 
000 



177566 
177564 



102 
057 
105 
117 



ASL 
ADD 
ADD 
ADD 
ASR 
INC 
SUB 
BGE 
ADD 
BPT 
MOV 
INC 
TST 
BGT 
RTS 



TRWAIT: TST 
BEQ 
BPL 
JSR 
.ASC 



* TO LOGICAL SEC * 



RO 

R0.R3 

R0.R3 

R0.R3 

RO 

RO 

#26.. 

3$ 

*27..R3 



\3 



(SP)*.R0 

RO 

Rl 

10$ 

PC 



WORD COUNT TO BYTE COUNT 

SAVE SEC # 

R3 6ETS LOG SEC # 

DIVIDE ROUTINE. RO IS LOOP COUNTER 

DOES 26 GO INTO DIVIDEND? 

BP IF NOT. C BIT CLEAR 

SUBTRACT 26 FROM DIVIDEND 

SHIFT DIVIDEND AND QUOTIENT 

MORE TO DIVIDE? 
IDE : R3 CONTAINS TRACK * IN HIGH BYTE. 
IN LOW BYT-I 

RO GETS TRACK # 

REMOVE TRACK t FROM REMAINDER 

GET REMAINDER (SECTOR #) 

SET C ONLY IF 12 < R3 < 24 

DOUBLE SECTOR # FOR 2-T0-1 INTERLEAVE 

MOVE C-BIT TO LSB FOR SECTOR GROUP 

SKEW BY 6*TRACK * FOR 
TRACK ACCESS TIME 

RESTORE TRACr # 

TRACK t TO RANGE 1-T0-76 

BR UNTIL SECTOR ; IS NEGATIVE 

SECTOR TO RANGE 1 TO 26. 

READ SECTOR -- DEC BYTE COUNT BY 128. 

RO GETS LOG SEC * AGAIN 

BUM? LSN 

TEST BYTE COUNT 

3R IF MORE BYTES TO GET 



aR4 

TRWAIT 
RTIRET 
RO. REPORT 
<12>\?B-I/0 ERROR\ 



TEST FOR TR. ERROR. DONE 

FUNCTION COKHLETE? 

NO ERROR IF f'.SB CLEAR (RTI) 

.•ERROR MESSAGE TO REPORT 



FILLTO 400 





;ERRCR 


PRINTER 


REPOK1: 


M0V3 


(RO)*. 3*177566 


REPORT: 


TSTB 


3*177564 




BPL 


REPORT 




TSTB 


3R0 




BNE 


REPOR1 



.•PRINT A CHARACTER OF ERROR MESSAGE 
.-WAIT FOR PRINTER READY 

.-TEST END OF MESSAGE 
;BR IF MORE TO PRINT 



ZZ-ESKAA-10.1 
V10-01-L 
CONSOLE FLOPPY 



CONSOLE FLOPPY BOOT 
MACRO V05.03 Friday 25-Apr-86 10:56 
BOOT 



C 3 



16B9 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1/25 
1726 
1727 
1728 
1729 
1730 



000416 000167 140000' 



000422 
000426 

000432 
000436 
000440 
000444 
00045C 
000454 
000460 
000464 
000466 
000470 
000474 
000476 
000500 
000502 
000504 
000506 
000510 
000512 
000514 
000516 



1731 



000524 
000526 
000532 
000536 
000542 
000544 
000546 
000552 
000554 
000560 
000563 
000566 
000571 
000574 
000577 
000602 



012706 
013746 

012700 
006300 
062700 
012701 
012702 
004767 
012701 
012100 
010102 
032721 
001411 
162721 
012446 
162721 
074444 
162721 
075273 
001002 
054141 
001432 



001010 

066200 

062702 

066702 

010201 

000750 

016700 

001331 

004067 

015 

102 

117 

117 

117 

123 

012 



037400 
037776 

000001 

000004 
001000 
001000 
177540 
001010 



002000 



000520 032712 004000 



000010 
000016 
001006 



001002' 

177624 
012 
055 
040 
116 
114 
131 
000 



JMP 



Page 10-1 



RESTAR 



Ftche 1 Fraae C3 



B00T3: 



DFND: 



.-REMAINDER OF BOOT 
MOV #37400. SP 
MOV a#37776.-(SP> 



MONF 



MOV 
ASL 
ADD 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

BIT 

BEQ 

SUB 

.RAD50 

SUB 

.RAD50 

SUB 

.RAD50 

BNE 

BIS 

BEQ 



077 
116 
103 
123 
056 
123 



; MODIFY: 
;1$: BIT 

1$: BIT 



;END MODIFY 
BNE 
ADD 
ADD 
ADD 
MOV 
BR 

2$: MOV 
BNE 
JSR 
.ASCIZ 



#1.R0 

RO 

#4.R0 

#1000. Rl 

#BUFFB.R2 

PC. READ 

#BUFFB 1Q.RI 

(R1)*.R0 

R1.R2 

#PERH.(Rl)* 

IS 

(PC)*.(R1>* 

/CON/ 

(PC)*.(R1>* 

/SOL/ 

(PC)*.(R1)* 

/SYS/ 

1$ 

-CRl).-(Rl) 

CONFND 

#ENDBLK.R2 
#ENDBLK.(R2) 



2$ 

10(R2).R0 

#16. R2 

BUFFB*6.R2 

R2.R1 

MONF 

BUFFB-2.R0 

DFND 

RO. REPORT 

<15><12>\?B-N0 



20-MAY-1986 



;TRY REBOOTING 



SET STACK PNTR AWAY FROM BOOT CODE FOR NOU 

STACK 'POHER-UP/CRASH* FLAG 

(CONTAINS 123456 IF CRASH RECOVERY) 

GET DIRECTORY SEGMENT 

(FIRST DIRECTORY SEGMENT IS SECT 6) 

DIR SEG IS 512. WORDS 
R2=BUF ADD 
READ SEC 
RESTARTING BLOCK WD 

R2 GETS ADD OF STAT WD 
TEST FOR PERMANENT FILE 
BR IF NOT PERMANENT 
LOOK FOR CONSOL.SYS 



Sequence 28 



BRANCH IF NOT .SYS EXTENSION 

TST BOTH PARTS OF FILE NAME MATCHING 

BRANCH IF CONSOLE FOUND 

TEST FOR END OF SEGMENT •*9»* 
BUG FIX R2 CONTAINS THE ADDRESS OF THE STATUS 
WORD. NOT THE STATUS WORD ITSELF. THEREFORE 
MODE 1 SHOULD BE USED RATHER THAN MODE 0. 

BR IF END OF SEG 

INCREASE STARTING BLOCK ADDRESS 

POINT R2 TO NEXT ENTRY 

ADD IN # OF EXTRA WDS 

POINT Rl TO NEXT 

SEE IF NEXT DIR SEG EXISTS 
BR IF IT EXISTS 
REPORT FAIL TO FIND CONSOLE 
C0NS0L.SYS\<12> 



.EVEN 



000010 



001000 
177374 



ZZ-ESKAA-1Q.1 LOAD CONSOLE PROCRAM 
V1U-01-L flACRO V05.03 Friday 
LOAD CONSOLE PROGRAM 



1765 
1766 
1767 
1768 

1769 0006G4 016201 

1770 00061C 124120 
1771 

1772 000612 000301 

1773 000614 012702 

1774 000620 004767 
1775 

1779 

1791 000624 010046 

1792 000626 010046 

1793 000630 000240 

1794 000632 000240 

1795 000634 000240 
1799 

1800 000636 022626 

1801 000640 105067 

1802 000644 012704 

1803 000650 0127K 

1804 000654 032714 

1805 000660 001775 

1806 000662 105737 

1807 000666 100402 

1808 000670 105267 

1809 000674 012704 

1810 000700 021627 

1811 000/04 001004 

1812 000706 042767 

1813 000714 000402 
1814 

1815 000716 004767 

1816 000722 042767 

1817 00C730 005037 
1818 

1819 
1820 

1821 000734 012704 

1822 000740 000507 
1823 

1824 001000 

1825 000001 

1826 000742 
182/ 

1828 001000 000463 

1829 

1830 001002 102777 

1831 

1832 

1833 

1834 001004 

1835 

1836 



D 3 



25-Apr-86 10:56 Page 11 



20-MAY-1986 



Fiche 1 Erase D3 



Sequence 29 



.SBTTl LOAD CONSOLE PROGRAM 
.•INPUTS: RO IS STARTING BLOCK OF CONSOL.SYS 



CQNFND; 



MOV 10(R2).R1 ;R1 GETS CONSOL SIZE 

CMPb -(Rl).(RO)* ;ADD 1 TO START BLOCK. SUB 1 FROM t BLOCKS 

.-MULTIPLY Rl BY 256 TO GET t OF WORDS IN CONSOL.SYS 

SWA.3 Rl 

MOV '-}■ rlOOO.R2 ;R2 GETS CONSOL BASE ADDRESS 

JSR P.C.READ ;LOAD IN CONSOLE 



.-PUT 2 ON STACK FOR CODE BELOW 



035326 
177170 
000033 
000040 

177172 

035277 
173032 
123456 

000020 034464 



002710 
000002 
037776 



000001 



034672 



CONSTRr 


MOV 


RO.-fSP) 




HJV 


PO.-(SP) 




NOP 






NOP 






NOP 




NOREMO: 


CMP 


<SP)*,(SP)* 




CLRB 


NOREMT 


5$: 


MOV 


*RXCS,R4 




MOV 


#33. (R4) 


8$: 


BIT 


#CSD0NE.(R4) 




BEQ 


8$ 




TSTB 


3#RXCS+2 




BMI 


9$ 




INCB 


N0DRV1 


9$: 


MOV 


#MCR.R4 




CMP 


(SP). #123456 




BNE 


12$ 




BIC 


#INITLD.TCONTL 




BR 


11$ 


12$: 


JSR 


PC.INITQU 


11$: 


BIC 


fSAUHLT.FLAG 




CLR 


3*37776 




.DSABL 


LSB 




MOV 


#1.R4 




3R 


CONBOT 



GET PC AND PSW OFF STACK 

NOTE NO REMOTE TERMINAL 

POINT R4 TO FLOPPY CONTROL AND STATUS REG 

READ DRIVE 1 STATUS 

FUNCTION COMPLETE? 

BR IF NOT 

DRIVE 1 READY? 

BR IF IT IS 

REMEMBER THERE IS NO DRIVE 1 

POINT R4 TO MCR REGISTER FOR INIT RTN USE 

POUER-UP CAUSE OF THIS BOOT? 

BR IF POWER UP 

PREVENT AUTO-RESTART ON CRASH RECOVERY 



INIT STAR CPU S STARLET INPUT QUEUE(EDIT-21A) 

CLEAR 'SAW HALT' BIT OF 'FLAG' 

CHANGE 'POWER-UP* FLAG TO CRASH RECOVERY VALUE 



,-CAJSE AN ECO FILE LOAD (IGNORED WHEN APTLOD=l) 
.•START UP CONSOLE 

tlUFFB-1000 DIRECTORY BUFFER 
PG'j f SZ = < -BASE*777>/!000 
FiLLTO 1000 

BR CONSRT .-USED FOR CONSOLE RELOAD ENTRY 

, iiililttitiliilliiiiiittilliittitililllitliittttiliiliilliiiltlriiiiii 

BVS . :USED TO INDICATE CONSOLE PROGRAM LOADED 

.-THIS INSTRUCTION MUST APPER AT ADDRESS 1002 



ttititti««i«ittt 



»ttttt*t*tttt*«t*ttttt«t*t*t»f*»tt«ttttttt*t»ttt*t*t*t 



APTSRT: .-SPECIAL APT START-UP ENTRY 

.•REVERSE TERMINAL ADDRESS ASSIGNMENTS. DISABLE FLOPPY USAGE 
;CAUSE ECO LOAD AND SHOW COMMAND TO BE SKIPPED 



ZZ-E3KA* 


k-10.1 


LOAD CONSOLE PROGRAM 






E 3 

20- 


MAY-1986 Fiche 1 Fraae E3 Sequence 30 


V1Q-01-1 




MACRO V05.03 F 


riday 25 


-Apr-b6 


10:56 


Page 11 1 




LOAD CONSOLE PROGRAM 














1837 


001004 


112767 


000001 


037747* 




MOVB 


#l.APTLOD : 


THIS HILL PREVENT SHOW AND ECO LOAD 


1838 


001012 


012706 


001000 






MOV 


#1000. SP j 


SET STACK 


1839 


001016 


105267 


035151 






INCB 


NCDRV1 ; 


DISABLE FLOPPY DRIVE 1 


1840 


001022 


105267 


035146 






INCB 


ALLREM ; 


FORCE ALL FLOPPY REQUESTS TO APT 


1841 


001026 


005067 


037752* 






CLR 


FfSVER ■ 


CLEAR VERSION TEMPS TO PREVENT ERRORS CAUSED 


1842 


001032 


005067 


037754* 






CLR 


W.CVER ; 


BY LACK OF UCS LOAD 


1843 


001036 


012702 


037756 






MOV 


#RCSR.R2 ; 


SET TERMINAL ADDRESS ASSIGNMENTS 


1844 


001042 


012700 


175610 






MOV 


#175610. RO ; 


THIS ADDRESS HILL BE LOCAL TERHINALCAPT ONLY) 


1845 


001046 


012703 


000004 






MOV 


#4.R3 


USED TO COUNT 4 ADDRESSES PER TERMINAL 


1846 


001052 


010304 








MOV 


R3.R4 




1847 


001054 


010022 






10$: 


MOV 


R0,(R2)* ; 


SAVE AN ADDRESS FOR LOCAL TERMINAL (4 WORDS) 


1848 


001056 


005200 








INC 


RO 




1849 


001060 


005200 








INC 


RO 




1850 


001062 


005303 








DEC 


R3 




1851 


001064 


003373 








BGT 


10$ 




1852 


001066 


012700 


177560 






MOV 


#177560. RO 




1853 


001072 


010022 






20$: 


MOV 


R0.(R2>* 


SAVE AN ADDRESS FOR REMOTE TERMINAL (4 WORDS) 


1854 


001074 


005200 








INC 


RO 




1855 


001076 


005200 








INC 


RO 




1856 


001100 


005304 








DEC 


R4 




1857 


001102 


003373 








BGT 


20$ 




1858 


001104 


016746 


022404 






MOV 


BUFO♦RMTXVC.-(SP , 


;CODE HERE SUAPS INTERRUPT VECTOR CONTENTS 


1859 


001110 


016767 


022150 


022376 




MOV 


BUFO*LCTXVC.BUF0< 


►RMTXVC 


1860 


001116 


012667 


022142 






MOV 


(SP)*.BUFO-LCTXVC 


1861 


001122 


016746 


022362 






MOV 


BUFO-RMRXVC.-(SP 


> 


1862 


001126 


016767 


022126 


022354 




MOV 


&UF0*LCRXVC.BUF0< 


►RHRXVC 


1863 


001134 


012667 


022120 






HOV 


(SP)-.BUFO*LCRXVC 


1864 


001140 


042767 


000020 


J2 




BIC 


#INITLD.TCONTL 


rPREVENT AUTO-RESTART 


1865 


001146 


000412 








BR 


CONBAS 


rCONTINUE STARTUP IN COMMON FLOH(VOl-Ol) 


1866 


















1867 












.•CONSOLE ROOT 




1868 












;SET 


UP PEVICE VECTORS 




1869 












;THEN 


START UP CONSOLE PROGRAH 


1870 


















1871 


001150 


105767 


037747* 




CONSRT: 


TSTB 


APTLOD 


;RUNNING UNDER APT-MANF? 


1872 


001151 


001313 








BNE 


APTSRT 


;BR IF YES AND SWAP VECT0RS( V01 -00 .EDIT A) 


1873 


001156 


000406 








BR 


CONBAS 




1874 


















1875 


001160 


105267 


035600 




CONBOT: 


INCB 


SETSWH 


;F0RCE SWITCH TRANSITION SET-UP BY CHKSWH 


1876 


001164 


011600 








MOV 


(SP).RO 


;GET POWER UP/RESTART FLAG 


1877 


001166 


012706 


00100G 






MOV 


11000. SP 


;RESET STACK TO SENSIBLE VALUE. 


1878 


001172 


010046 








MOV 


RO.-(SP) 


;PUT POWER UP/RFSTART FLAG ON STACK 


1879 


001174 


012700 


023200* 




CONBAS: 


MOV 


fBUFO.RO 


.-SET UP DEVICE VECTORS 


1880 


001200 


005001 








CLR 


Rl 


.•START AT ADDRESS 


1881 


001202 


012021 






2G$: 


MOV 


(R0)*.(R1)* 


;LOAD INTERRUPT VECTORS AND PSW'S 


1882 


001204 


105701 








TSTB 


Rl 


;STOP AT 40O (LOW BYTE = 000) 


1883 


C01206 


001375 








BNE 


20$ 




1884 


















1885 


















1886 












.•ENABLE TERMINAL KEYBOARI 


) AND PRINTER INTERRUPTS 


1887 












.•THESE TWO ENABLES ARE NEVER CLEARED 


1888 


001210 


005777 


037760' 






TST 


3RBUF 


.-CLEAR OUT KBD BUFFER 


1889 


001214 


004767 


001376 






JSR 


PC.ENLTIE 


;ENABLE LOCAL TERMINAL INT ENABLES 


1890 


001220 










MOVTOPSW *0 




1891 


001224 


110467 


021255 






MOVB 


R4.CNVTDN 


.-PASS ALONG "TO LOAD OR NOT TO LOAD WCS' PARAMETER 



F 3 
ZZ-ESKAA-10.i LOAD CONSOLE P '" ?AM 20-HAY-1986 Fiche 1 Frame F3 Sequence 31 
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LOAD CONSOLE PROGRAM 

1892 001230 004767 030572 JSR PC.CHKSUH ,-SET-UP AS DIRECTED BY CONSOLE MODE SWITCH 



ZZ-ESKAA-10.1 
V10-01-L 



1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

19G7 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1522 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 



V10-01-L 
MACRO V05.03 



G 3 



Fr»day 25-Apr-86 10:j6 Page 12 



20-MAY-1986 



Fiche 1 Frame G3 



Sequence 32 



001234 
001236 
001242 
001250 
001254 
001260 
001264 
001270 
001274 
001300 
001302 
001306 
001312 
001314 
001320 
001322 
001326 
001332 
001340 
C01344 
(101350 



001354 
001362 
001370 
001376 
001404 
001410 
001414 
0D1416 

001424 
001430 
001434 
001440 
001444 
031450 
001452 
001454 
001456 
001462 
001466 
001470 
01472 
G01476 
C01502 
G01504 
01510 



004767 
012767 
004767 
005037 
005067 
005067 
005067 
105767 
001055 
004767 
105767 
001441 
021627 
001436 
105067 
105067 

012700 
004767 
004767 



052767 
012767 
012767 
052767 
004767 
004767 
000403 
052767 

004767 
004767 
004767 
012700 
012701 
005020 
005301 
003375 
012720 
012701 
010120 
110120 
012704 
012705 
010503 
004767 
103351 



001474 

006416* 

003170 

173014 

021236 

021234 

034326 

037747' 

001524 
021173 

123456 

037745' 
037746' 

017202* 

015570 

010050 



100000 

012322' 

010000 

000020 

001422 

010010 



RESTRT 



034146 



034016 
034026 
035206 
034216 



004000 034176 5$: 



005336 

007670 

C00140 

035400' 

000007 



003102* 
177777 



036421* 

015426* 

012616 



9$: 

10$; 



15$: 



.SBTTL 

.SBTTL COMMAND GETTER 

.ENABL LSB 



T$INIT 

JSR PC.SETINP 

MOV #DOSHOU,UHATTODO 

JSR PC.SETTXR 

CLR a#RXDONE 

CLR REl'JCA 

CLR RElOCA-2 

CLR FLAG 

TSTB APTLOD 

SHE 10$ 

JSR PC.SHOWIN 

TSTB CNVTDN 

BEQ 5$ 

CMP (SP). #123456 

BEQ 5$ 

CLRB WRMSTR 

CLRB CLDSTR 

TYPEMES #WCSLOD..CR 

MOV #ECONAM.R0 

JSR PC.SETFIL 

JSR PC.GETVER 



BIS 


#WCSDES.TCONTL 


MOV 


#DOLOAD.WHATTODO 


MOV 


#FIRSTW,EFFADR 


BIS 


#NOSHOW.FLAG 


JSR 


PC.SHOHIN 


JSR 


PC.GETVER 


BR 


9$ 


BIS 


fWCSPRES.FLAG 



JSR PC.DOSHVR 

JSR PC.TSTVER 

JSR PC.GETLIN 

MOV #TCONTL.R0 

MOV #7.R1 

CLR (RO)* 

DEC Rl 

BGT 15$ 

MOV #RTSINS.(R0)< 

MOV #177777. Rl 

MOV Rl.(RO)* 

MOVB Rl.(RO)* 

MOV #TTYBUF*1.R4 

MOV #MAJTREE.R5 

MOV R5.R3 

JSR PC.RECOG 

BCC 10$ 



: INIT TERMINALHANDLER 
;SET UP A 'WATCH-DOG' INPUT 
.•ENABLE A 'SHOW COMMAND 
;SET 'TX READY' 
; CLEAR RX DONE 

CLEAR RELOCATION REGISTER 

CLEAR CONTROL FLAGS 

DID APT LOAD US? 

BR IF YES. SKIPPING LOAD AND VERSION CHECKS 

PERFORM A 'SHOW COMMAND. AND TEST FOR HALT 

TEST FOR MCS-ECO LOAD 

BR IF NO LOAD TO DO 

HERE AS A RESULT OF POWER-UP? 

BR IF NOTCCRASH RECOVERY) 

CLEAR HARM-START FLAG 

CLEAR COLD-START FLAG 

TELL OPERATOR WE ARE LOADING WCS 

SET UP TO OPEN ECO FILE 

MOVE ECO NAME TO FILENAME BLOCK 

GET FPLA VERSION AND MICRO CODE OPTIONS 

(THIS CALL ADDED SO 'DOLOAD' KNOWS HOW MANY 

BYTES TO LOAD. VER 5-02) 

MARK THE LOAD FOR WCS 

SET UP RTN POINTER 

SET BASE ADDRESS FOR LOAD 

INHIBIT SHOWING VERSION ON THIS LOAD 

EXECUTE THE LOAD 

ASSEMBLE VERSION OF WCS. PCS. FPLA 

SHO VERSION 

DID NOT LOAD WCS BUT MARK IT PRESENT 

BECAUSE THIS IS A CRASH RECOVERY 

DISPALY VERSION INFO 

CHECK FOR VERSION COMPATIBILITY 

GET A COMMAND LINE 

SET UP TO CLEAR 7 WORDS IN A ROW 

CLEAR TCONTL.MICFLG.NEXTCT. COUNT. COUNT *2.DEEXBY( BYTE) 

DEFSTP (BYTE). ABORT (BYTE). AND RPTFLG(BYTE) 

PRESET NULL COMMAND IN 'WHATTODO' 

RO NCW POINTING TO 'CURRAD' 

MARK lURRENT RADIX AND DATA LENGTH UNUSED 

MARK CURRENT ADDRESS SPACE UNUSED 

POINT R4 TO INPUT T ED COMMAND LINE 

POINT R5 TO MAIN SENTENCE TREE 

DITTO R3 

TRY TO RECOGNIZE INPUT STRING. IF RECOGNIZED EXECUTE 

BR IF COMMAND RECOGNIZED AND EXECUTED 



ZZ-ESKAA-10.1 


COMMAND 


GETTER 






H 3 
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COMMAND 


GETTER 














1949 


001512 








TYPEMES 


JCRMESQ..CR 


.•TYPE FIRST PART OF ERROR MESSAGE 


1950 


001520 


012701 


036420' 




MOV 


#TTYBUF.R1 




POINT Rl TO BEGINNING OF COMMAND STRING 


1951 


001524 


112100 






MOVB 


(Rl)-.RO 




RO GETS LENGTH OF INPUTTED COMMAND LINE 


1952 


001526 


012746 


021672" 




MOV 


*ISINCO.-(SP> 




ASSUME ONE ERROR MESSAGE WILL BE TYPED 


1953 


001532 


121427 


000015 




CMPB 


(R4).*15 




TEST FOR 'EOL* CAUSING ERROR 


1954 


001536 


001410 






BEQ 


20$ 




BR IF 'EOL' CAUSING ERROR 


1955 


001540 


121427 


000041 




CMPB 


(R4).#'! 




• ! IS ALSO AN 'EOL* 


1956 


001544 


001405 






BEQ 


20$ 




•BR IF 'EOL' CAUSING ERROR 


1957 


001546 


060100 






ADD 


R1.R0 




POINT RO TO END OF COMMAND LINE 


1958 


001550 


160400 






SUB 


R4.R0 




RO GETS t OF CHARACTERS IN BAD PART OF STRING 


1959 


001552 


010401 






MOV 


R4.R1 




•Rl GETS POINTER TO BEGINNING OF BAD PART 


1960 


001554 


012716 


021653* 




MOV 


IISANER.(SP) 




•CHANGE THE MESSAGE HE GUESSED AT 


1961 


001560 






20$: 


TYPE 


Rl ,R0 




•Rl IS ADDRESS OF STRING. RO IS LENGTH 


1962 


001574 








TYPEMES 






•TYPE THE ERROR MSG WHOSE ADDRESS IS ON STACK 


1963 


001576 


000716 






BR 


10$ 




;GET ANOTHER LINE 


1964 
















1965 












.DSABL LSB 







ZZ-ESKAA-10.1 GET A COMMAND LINE 
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20-MAY-1986 



Fiche 1 Frame 13 



Sequence 34 



1967 






1968 






1969 






1970 






1971 001600 






1972 001600 


012702 


035622* 


1973 001604 


105767 


034360 


1974 0C1610 


001402 




1975 001612 


000167 


000510 


1976 






1977 001616 






1978 






1979 






1980 






1981 






1982 






1983 






1984 001616 


032767 


000020 


1985 00, .'24 


001537 




1986 001626 


042767 


000020 


1987 001634 


105767 


037751' 


1988 001640 


001526 




198" 






19VU 






1991 






1992 001642 


032712 


000100 


1993 001646 


001403 




1994 001650 


032712 


020000 


1995 001654 


001065 




1996 






1997 






1998 






1999 001656 


105767 


037745* 


2000 001662 


001353 




2001 






2002 






2003 






2004 






2005 






2006 






2007 






2008 






2009 






2010 






2011 






2012 






2013 






2014 001664 


105267 


037745* 


2015 0O1670 






2016 001676 


005001 




2017 001700 


012746 


001712* 


2018 001704 


004067 


015540 


2019 001710 


002 


012 


2020 001712 


105267 


033474 


2021 001716 


005067 


033462 



GETLIN 
1$: 



14$: 
6$: 



033554 
033544 



95$: 



7$ 



.SBTTL GET A COMMAND LINE 
.ENABL LSB 



MOV 
TSTB 
BEQ 
JMP 



•FLAG.R2 

BOOTFL 

6$ 

5$ 



.•BOOTING? 
:BR IF NO 



ItllttllltllllllUflltllllltlttlltlKltttlltttltttlttllttlKtttlttlt 



CHECK FOR AUTO-RESTART CONDITIONS 



ItlltttllttKlltttttttlltllttttlltlitttltlltttttlttMlttlttKtttlllt 



BIT 

BEQ 

BIC 

TSTB 

BEQ 


fiNlTLD.TCONTL 

22$ 

fiNlTLD.TCONTL 

AUTFLG 

21$ 


;♦ 

BIT 

BEQ 
BIT 
BNE 


BEGIN VOl-EDIT 

*HFD0NE.(R2) 

95$ 

#SFHD0N.(R2) 

9$ 


$ 


END V01-EDIT-2 


TSTB 
BNE 


HRMSTR 
14$ 



AUTO-RESTART FLAG SET? 
BR IF NO 

CLEAR AUTO-RESTART BIT 
AUTO-RESTART ENABLED? 
BR IF NO 



IS CONSOLE COMMAND HANDLER IN 'WAIT FOR DONE' STATE? 

BR IF NOT AND CONTINUE AUTO RESTART CHECKS 

HAS A 'DONE* RECEIVED? 

BR IF YES. ABORTING AUTO-RESTART 



.•WARM-START FLAG SET? (EDIT-16. PARTIAL) 
.-SECOND TIME AROUND -- GO DO A BOOT 



lltlttlltllttllltltltlllltltllttllltltttllllltlllllltilltttltttlllll 

AUTO-RESTART CONDITIONS ARE SATISFIED. 

PUT VAX PROGRAM COUNTER IN VAX GEN. REG. 10 

PUT VAX PSL IN VAX GEN .REG. 11 

PUT ERROR CODE (HALT REASON) IN VAX GEN. REG. 12 

THEN EXECUTE THE CONSOLE 'a' FILE NAMED "RESTAR .CMD ' . 



;SET FLAG TO AVOID INFINITE LOOP (END EDIT-16) 
:TYPE '(AUTO-RESTART)' 

STACK A RETURN FOR 'SETUPR* CALL 

SET UP ADDRESS AND ADDRESS SPACE FOLLOHING 

(SETS UP ACCESS TO GEN REG 10.) 

FORCE DEPOSIT 

FORCE ONLY ONE 



INCB 


HRMSTR 


TYPEMES 


*AUTRES,,CR 


CLR 


Rl 


MOV 


#7$. -ISP) 


JSR 


RO. SETUPR 


.BYTE 


GENSPC.10. 


INCB 


DEEXBY 


CLR 


NEXTCT 



ZZ-ESKAA-10.1 GET A COMMAND LINE 

cKT&HUWD Li!!e ACR0 V05 - 03 FHday 25 " Apr - 86 10;56 Pa9e13 - 1 



J 3 



20-MAY-19B6 



Fiche 1 Frame J3 



Sequence 35 



2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

206? 

2070 

2071 

2072 

2073 

2074 

2075 

2076 



001722 
001726 
001732 
001736 
001742 
001746 
001752 
001756 
001762 
001766 
001772 
001776 
002002 
002010 
002014 

002016 



002022 
002026 
002030 



002030 
002034 
002040 
002042 
002046 
002050 
C02056 
002062 



012701 
004767 
004767 
012703 
012702 
004767 
004767 
012701 
004767 
004767 
012700 
004767 
012767 
004767 
000671 



032712 
001427 



004767 
032712 
001773 
032712 
001406 
042767 
042712 
000646 



036542" 

000702 

002556 

036562' 

000017 

007070 

002536 

022532' 

000646 

002522 

017210* 

015136 

003132' 

001016 



033406 



8$: 



002016 004767 000714 



000100 



9$: 



MOV #DATAFR,R1 

JSR PC.MOVTOD 

JSP PC.DODEEX 

MOV #DATAT0.R3 

MOV #17. R2 

JSR PC.READID 

JSR PC.DODEEX 

MOV #SAVC0D.R1 

JSR PC.MOVTOD 

JSR PC.DODEEX 

MOV #RESNAM.R0 

JSR PC.SETFIL 

MOV #DOAUTR,WHATTODO 

JSR PC.SHOWIN 

BR IS 



SET TO HOVE 'DATAFR* (HALT PC) TO 'DATATO' 

MOVE 'DATAFR' TO 'DATATO' 

DEPOSIT 'DATATO* TO GEN REG 10. (HALT PC) 

SET TO READ PSL TO 'DATATO' 

PSL IS ID 17(F) 

READ PSL TO DATATO 

STORE 'DATATO' TO REG 11 (PSL) 

POINT Rl TO THE 'HALT REASON' CODE 

MOVE 'SAVCODMHALT REASON) TO 'DATATO' 

DEPOSIT 'DATATO* TO REG 12 (HALT REASON) 

RO POINTS TO INDIRECT FILE NAME IN RAD50 

MOVE FILENAME BLOCK TO 'FILENM' 

.-SET UP TO EXECUTE AN INDIRECT FILE 

EXECUTE AN INDIRECT COMMAND FILE 



006106 




JSR 


020002 




BIT 

BEQ 


020000 




BIT 

BEQ 


000020 


033322 


BIC 


000100 




BIC 
BR 



tlllllllltttHtttttlttllltllltlMtltllltltllllfltttlttMtltllllllMI 

INDIRECT COMAND MODE. SET UP A TTY INPUT TO ALLOW THE OPERATOR 
TO ABORT THIS PROCESS VIA CONTROL-C IF DESIRED. 

IHIIIIIIItt.llllltttllltttltlttHllllttlMlllllttttlflltltllllllllt 

JSR PC.SETINP ;SET UP AN INPUT 

tltltllttMtttllllllltHttMtlllltltttllltttltttlllttllllltlttlllltl 

NOW WE CHECK FOR A WAIT IN PROGRESS(VIA A 'WAIT DONE' COMMAND) 
IF A WAIT IS IN PROGRESS . THEN WE DO NOT GET NEXT COMMAND . INE 
FROM THE INDIRECT COMMAND FILE UNTIL A 'DONE' CONDITION IS SENSED. 

ttlllttlltltttlllltllttltlttltllllUltttltllllllMlllllltlflllMIIH 

BIT *WFDONE.(R2) 

BEQ 15$ ;BR IF NO WAIT IN PROGRESS 

■ Itlllllltttlttltltltlllllltiuitlllllltlllllllttllltllllttltlttlltl 

WAIT IN PROGRESS. HANG HERE IN A LOOP UNTIL: 1) JPU HALTS. OR 2) 'SFWDON' FLAG SETS 
NOTE: 'SFWDON' GETS SET BY 1) SIGNAL FROM VAX MACRC-LEVEL SOFTWARE. OR 

2)A CONTROL-C TYPED ON CONSOLE KEYBOARD. 'SFWDON' IS CLEARED EACH 
TIME THE STAR CPU IS STARTED OR CONTINUED. 

ttiitiiiiiitmitiitiitittiiiiiiiiiiitiiiiiiiiiiititiMiiiiiititiiii 

PC.TSTHAL .-TEST FOR VAX CPU HALT 

#SAHHLT!SFWD0N.(R2) ;DID VAX SEND A 'DONE' OR HALT? 

9$ ;BR IF NEITHER 

#SFHD0N.(R2) .-WAS IT A 'SOFTWARE DONE* FROM VAX? 

81 S ;BR IF NOTCHALTED WITHOUT SENDING 'DONE') 

JINITLD.TCONTL .-INHIBIT AUTO-RESTART IN CASE VAX HALTED 

*WFD0NE.(R2) .-DISABLE 'WAIT FOR DONE' MODE 
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GET A COMMAND LINE 



K 3 



20-MAY-1986 



Fiche 1 Frane K3 



Sequence 36 



2077 


002064 






2078 








2079 








2080 








2081 








2082 








2083 








2084 








2085 


002064 


042712 


000200 


2086 


002070 


012701 


022373' 


2087 


002074 


004767 


011404 


2088 


002100 


105067 


020405 


2089 


002104 


000635 




2090 








2091 


002106 






2092 








2093 








2094 








2095 








2096 








2097 








2098 


0021G6 


004767 


011146 


2099 


002112 


103174 




2100 


002114 


000765 




2101 








2102 


002116 






2103 








2104 








2105 








2106 








2107 








2108 








2109 








211C 








2111 








2112 








2113 








2114 








2115 


002116 


042767 


000020 


2116 


002124 


105067 


033466 


2117 


002130 


1C5712 




2118 


002132 


100731 




2119 


002134 


105767 


033455 


2120 


002140 


001033 




2121 


002142 






2122 


002144 


032767 


000000 


2123 


002152 


001026 




2124 


002154 


105067 


034241 


2125 


002160 






2126 


002200 


103003 




2127 


002202 


005726 




2128 


002204 


000167 


177370 


2129 








2130 


002210 


012746 


022414* 


2131 


002214 


105767 


020272 



81$: 



89$: 



15$: 



21$; 



033254 



22$; 



30$: 
80$, 



iitiiiii«titiiiiiimtiitiiiitti(«i«iiimntini»iitnimti«itiiii 

CPU HALTED WHILE WAITING FOR 'DONE' FROM MACRO-PROGRAM 
TYPE -<aEXIT>' AND ENABLE COMMAND LINE INPUT FROM TERMINAL. 

IHtMltltttlttlltllltlUtltltlttttttttliltllMtltlltltltttttltlttll 

DISABLE INDIRECT MODE 

Rl GETS POINTER T *<aEXIT>' 

PRINT MESSAGE IF NOT BOOTING 

KILL ECHO SUPPRESSION 

TYPE PROMPT AND THEN ACCEPT INPUT FROM TERMINAL 

♦ 

tiiittitttiiittiiiiitiittittiittiiittiiittttttttiiiintiitittittiiii 

GET AN INDIRECT COMMAND LINE FROM A FLOPPY FILE 

tttlllltlMIIIIItttllttttttllltlttltltltltttttlllllltttlltlttlttlltl 



BIC 


#INDM0D.(R2) 


MOV 


*INDEXI.R1 


JSR 


PC.INDECH 


CLRB 


NOECHO 


BR 


1$ 



JSR PC.INDLIN 
BCC 4$ 
BR 89$ 



;GET A COMMAND LINE FROM THE FLOPPY 
;BR IF LINE GOTTEN WITH NO ERROR 
.-ERROR OR EOF ON INDIRECT FILE. 



tiitttiitttttttttitiiittitttiitttttiittiittiitiitifttitttiitiitittti 

CHECK FOR: 'PROGRAM I/O MODE'. 'INDIRECT COMMAND MODE* 
'TALK MODE* OR 'CONSOLE MODE' 

IF<PROGRAM I/O MODE 'OR' TALK MODE > THEN <ENTER CONSOLE NULL LO0P> 
IF<INDIRECT MODE> THEN <GET A COMMAND LINE FROM A FLOPPY FILE> 
IF<NONE OF THE ABOVE) THEN<ISSUE REQUEST FOR TERMINAL INPUT. ENTER 

ENTER CONSOLE NULL LOOP> 



• 1 1 1 1 > 1 1 1 > 1 1 1 1 1 < 1 1 1 1 1 1 ■ i . * 1 1 1 1 1 1 1 • > 1 1 1 1 1 1 1 1 1 1 1 1 1 > i < 1 1 1 1 1 



■ >it utti nt 



BIC 

CLRB 

TSTB 

BMI 

TSTB 

BNE 

T$INIT 

BIT 

BNE 

CLRB 

T$READ 

BCC 

TST 

JMP 

MOV 
TSTB 



1INITLD.TCONTL 

LINGOT 

(R2) 

8$ 

PGMIOM 

NULJOB 



CLEAR SOFT AUTO-RESTART BIT 

CLEAR LINE SYNC FLAG 

TEST FOR INDIRECT COMMAND MODE 

BR IF INDIRECT MODE 

TEST FOR PROGRAM I/O MODE 

BR IF PROGRAM I/O MODE 

CANCEL ANY EXISTING READ REQUEST 

IN TALK MODE? 

BR IF YES 
MAKE SURE FIRST CHARACTER IS NOT 'X' 
*TTYBUF.*80..*GOTLIN .-ISSUE REQUEST FOR TERMINAL INPUT 
80$ ;BR IF NO ERROR ON READ REQUEST 

(SP)* .-GET ERROR CODE OFF STACK 

1$ 

#C0NPMP,-(SP) ;ASSUME NORMAL PROMPT 
LINKNG ;ARE WE LINKING? 



fTLKMOD.TCTFLG 

NULJOB 

TTYBUF*! 



L 3 
ZZ-ESKAA-10.1 GET A COMMAND LIME 20-MAY-1SJ6 
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GET A COMMAND LINE 



fiche 1 Fra«e L3 



Sequence 37 



2132 002220 001402 

2133 002222 012716 022422* 

2134 002226 



23$: 



BEQ 23$ 

MOV ILNKPMP.(SP) 

TYPEMES 



BR IF NO 

CHANGE TO REVEnSE PROMPT FOR LINK 

TfPE A PHOMPTCADDRESS ON STACK) 
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CONSOLE NULL LOGP 



M 3 



20-MAY-1986 



Fiche 1 Frajie H3 



Sequence 38 



2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

21J0 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

217" 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 



002230 
002230 
002234 
002240 



002242 
002246 
002250 
002254 
002260 
002252 
002266 
002272 
002274 
002300 
002304 
002306 
002312 
002316 
002320 
002324 
002326 
002332 
0C2334 
002336 
002344 
002352 
002356 
002362 
002366 

002370 
002374 
002376 
002400 
002404 
002406 
002412 
002416 
002420 
002422 
002426 
002430 
002432 
002434 
002440 
002444 
002450 



004767 027572 
004767 005702 
103761 



004767 
103756 
012701 
005367 
001007 
004767 
005367 
001002 
042711 
032711 
001431 
052711 
032711 
001373 
032711 
00102! 
105767 
001013 



012767 
004767 
004767 
105067 
000706 

105767 
001715 
100425 
105767 
001437 
016700 
012701 
112102 
112103 
004767 
103414 
005302 
003372 
012703 
004767 
010067 
103255 



NULJOB: 



005346 

173034 
033716 

0"0330 
033706 

010000 
004000 

004000 
004000 

000003 

037746' 



35$: 
40$: 

5$: 



003104' 033044 

014556 

000450 

033602 97$; 



033222 



020106 

020144 
036420' 



000064 



000012 
000046 
020106 



3$ 



50$: 



.SBTTL CONSOLE NULL LOOP 

.CONSOLE NULL LOOP 

JSR PC.CHKSWH .-CHECK FOR CONSOLE MODE SWITCH CHANGE 

JSR PC.TSTHAL ;MATCH FOR CPU HALTS 

BCS 30$ ;BR IF HALT SEEN 

*******EDlT-27 21-JUL-78* ******* ****** 

DON'T CHECK FOR TIMEOUT UNTIL THE HARDWARE IS ECO'D CORRECTLY 



JSR 
BCS 



***t****** 



PC.TSTTMO 
30$ 



.•TEST FOR A 'HICRO-MACHINE TIME OUT' 
;BR IF TIMEOUT 



u *\ 1 r • ii.luvi 
tt******t**t**t*t*t**t*t*tt* 



JSR PC.TSTCLK 

BCS 30$ 

'■ ■'•V fMCS.Rl 

liJT FLHTIM 

BNE 35$ 

JSR PC.ENLTIE 

DCC FLPTIM+2 

BNE 35$ 

BIC fFLPYOF.(Rl) 

BIT *BOOTBT.(Rl> 

BEQ 3$ 

BIS *BOOTBT.(Rl) 

BIT *LOOTBT.(Rl) 

BNE 40$ 

BIT *<REMOT!LOCKD>.( 

BNE 3$ 

TSTB- CLDSTR 

BNE 97$ 

T$INIT 

TYPEMES #BOTING..CR 

MOV *DOBOOT.WHATTODO 

JSR PC.STBOFL 

JSR PC.SHOWIN 

CLRB BOOTFL 

BR 30$ 

TSTB LINGOT 

BEQ NULJOB 

BMI 55$ 

TSTB LINKNG 

BEQ 4$ 

MOV INDBYT.RO 

MOV fTTYBUF.Rl 

MOVB <R1)*.R2 

MOVB <R1)*,R3 

JSR PC.SAVBTE 

BCS 60$ 

DEC R2 

BGT 50$ 

MOV #12. RS 

JSR PC.S.'.VBTE 

MOV R0.1NDBYT 

BCC 20$ 



;TEST FOR CLOCK STOP 
:BR IF CLOCK STOPPED 

BUMP FLOPPY POWER-OFF TIMER 

BR IF FIRST WORD NOT UNDEFFLOUED 

ENABLE LOCAL TERMINAL INTCRRUPTS 

BUMP HIGH ORDER BITS 

BR IF NOT TIMED-OUT 

TURN OFF FLOPPY POWER 

BOOT SWITCH ASSERTED? 

BR IF NO 

CLEAR BOOT BIT(YES. A BIT SET!) 

SWITCH DE-ASSERTED? 

BR IF NOT 
Rl) ;A;<Y MODE EXCEPT LOCAL? 

BR IF NOT IN 'LOCAL' MODE 

COLD-START FLAG SET (EDIT-16 PARTIAL) 

DON'T BOOT — KEEP LOOPING 

CANCEL TERMINAL REQUEST 

TELL THE WORLD WE ARE BOOTING 

;SET UP BOOT COMMAND VECTOR 
;SET UP BOOT FILE NAME 
.-PERFORM THE BOOT 
.-CLEAR THE BOOT FLAG 



TEST LINE SYNC FLAG 

PR IF LINE NOT INPUTTED 

BR IF ERROR ON LINE INPUT 

LINKING COMMANDS? 

BR IF NOT 

POINT RO TO BUFrER 

POINT Fl TO INPUT LINE 

R2 GEli LENGTH OF LINE 

R3 GETS BYTE TO XFER 

SAVE BYTE IN R3 

BR IF WRITE ERROR OR OVERFLOW 

ALL BYTES XFERRRED? 

BR IF NO 

PUT A LINE FEED CHAR IN R3 

PUT LINEFEED AT END OF LINE 

RESET BUFFER POINTER 

PR IF NO WRITE ERROR OR OVERFLOW 



ZZ-ESKAA-1Q.1 CONSOLE NULL LOOP 
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CONSOLE NUl?. LOOP 



N 3 



2Q-MAY-1986 



Flche 1 Frane N3 



Sequence 39 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 



002452 
002456 
002460 
002464 
002470 
002472 
002476 
002502 



105767 
001652 
105067 
016700 
005003 
004767 
004767 
000640 



020034 

020026 
020066 

000014 
000020 



55$: 
60$: 



TSTB 

BEQ 

CLRB 

MOV 

CLR 

jSR 

JSR 

BR 



LINKNG 

30$ 

LINKNG 

INDBYT.RO 

RS 

PC.SAVBTE 

PC.FORCHT 

3C$ 



LINKING COMMANDS? 

BR IF NOT 

TERMINATE LINKING 

POINT RO TO BUFFER (V01- 

WRITE A BLANK AT E«D OF 

PUT R3 IN BUFFER 

FORCE OUT BUFFER 



EDIT-26) 
BUFFER 



002504 105367 033710 



002510 000512 



4$: 



DECB TTYBUF .-COMPENSATE FOR CR AT END OF LINE 
;SET UP A 1 CHARACTER INPUT BUFFER TO rtATCH FOR CONTROL-C WHILE 
.-CONSOLE IS EXECUTING THE COMMAND 
BR SETINP 

.DSABL LSB 



B 4 



ZZ-ESKAA-10.1 CONSOLE NULL LOOP 
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CONSOLE NULL LOOP 



Page 15 



20-MAY-1986 



Fiche 1 Fraae B4 



Sequence 40 



2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 



002512 



002512 
002514 
002520 
002522 
002526 
002564 
002566 
002570 
002574 

002576 
002602 
002606 
002610 
002612 
002614 



002616 



002616 
002624 
002632 

002634 
002634 
002640 
002642 
002644 



110320 
020027 
002433 
012700 

103004 
012600 
004767 
000406 

005267 
005367 
003401 
005727 
000261 
000207 



052777 
052777 
000207 



012700 
012120 
012120 
000207 



SAVBTE: 



023400* 
023200* 

011050 



017760 
017752 



FORCHT; 



5$: 



10$ 
20$ 
30$ 



ENLTIE: 



000100 
000100 



036562* 



037762* 
037756* 



ENABL LSB 

SAVE A BYTE OF COMMAND LINE FOR LINKING 

INPUTS: R3 IS BYTE TO XFER 

RO IS POINTER TO CURRENT BYTE OF BUFFER 
'INDLFT' IS # OF SECTORS REMAINING FOR LINK 
'INDSEC* I? 



OUTPUTS: 



is CURENT SECTOR FOR LINK 

R0<--R0*1 (BUFFER NOT FULL) OR R0<--'BUF0 
C BIT SET IF ERROR OR OVERFLOW 



(BUF FULL) 



MOVB 

CMP 

BLT 

MOV 

F$URIT 

BCC 

MOV 

JSR 

BR 

INC 
DEC 
BLE 
TST 
SEC 
RTS 
.DSABL 



R3.CR0)* 

RO.#BUF0*128 

10$ 

fBUFQ.RO 

INDSEC. RO 

5$ 

(SP)-.RO 

PC.TYFLER 

20$ 

INDSEC 
INDLFT 
20$ 
(PC)* 

PC 

LSB 



PUT BYTE IN BUFFER 

OVER BUFFER? 

BR IF NOT 

RESET RO 

WRITE CURRENT BUFFER 

BR IF NO ERROR 

RO GETS ERROR CODE 

TYPE FLOPPY ERROR MSG 



UPDATE SECTOR t 

MINUS ONE FROM t OF SECTORS PERMISSABLE 

BR IF # SECTORS EXCEEDED 

CLEAR C BIT. SKIP NEXT INST 



20$: 
MOVTOD: 



ENABLE LOCAL TERMINAL INTERRUPT ENABLES 

THIS RTN IS ENTERED PERIODICALLY TO INSURE THE CONSOLE 

DOESN'T GO DEAD IF THE LOCAL TERMINAL INTERRUPT ENABLES 

CLEARED UNEXPECTEDLY 
BIS #XMTlNT.aXCSR ;ENABLE INTERRUPTS 
BIS <RCVINT,aRCSR ;ENABLE INTERRUPTS 
RTS PC 

BY Rl TO 'DATATO* 



ARE 



;MOVE 


DATA POINTED 


MOV 


IDATATO.RO 


MOV 


(R!)*.(R0>* 


MOV 


(R1)*,(R0)* 


RTS 


PC 



ZZ-ESKAA-10.1 CONSOLE NULL LOOP 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 16 

CONSOLE NULL LOOP 



C 4 



20-MAY-1986 



Fiche 1 Fra«e C4 



Sequence 41 



2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 



002646 
002650 
002656 
002660 
002664 
002670 
002676 

002700 
002706 
002710 
002716 
002720 
002726 

002730 
002736 
002736 
002756 
002760 
002762 



103014 
026627 
001027 
105267 
105067 
052767 
000414 

032767 
001413 
126727 
001004 
052767 
000403 



000002 000006 



032530 
032525 
020000 



001000 
033503 
000409 



GOTINP 



.-DONE VECTOR ENTRY FOR ONE CHARACTER INPUT ROUTINE 



032724 

032714 
000040 
032674 



1$: 



BCC 1$ 

CMP 2(SP).#$TCTC 

BNE SETINP 

INCB ABORT 

CLRB RPTFLG 

BIS fSFHDON.FLAG 

BR 2$ 

BIT #SPCSTP.FLAG 

BEQ SETINP 

CHPB TTYTHP-1.#40 

BNE 2$ 

BIS *SPCSYC.FLAG 

BR SETINP 



BR IF NO ERROR 

CHECK FOR CONTROL-C 

BR IF NOT CONTROL-C 

SET ABORT 

DISABLE REPEAT MODE 

TERMINATE A 'WAIT IN PROGRESS' 



TEST FOR SPACE BAR STEP ENABLED 

BR IF NOT ENABLED 

TEST FOR A SPACE INPUTTED 

BR IF NOT A SPACE 

SET SYNC FLAG FOR DOSTEP ROUTINE 



042767 001600 032664 



103001 
005726 
000207 



2$: BIC 
SET I N'P:. -ROUTINE 

T$READ 

BCC 

TST 
1$: RTS 



nSPCSTPiSPCSYClINDMOD.FLAG ;DISABLE SPACE-BAR STEP 

TO SET UP A ONE CHARACTER INPUT 

#TTYTMP.*l.*GOTINP 

1$ ;BR IF NO ERROR 

(SP)* .-CLEAR STACK OF ERROR CODE 

PC 



002764 



ZZ-ESKAA-10.1 
V10-01-L 



2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 



002764 
002770 
002774 
003000 
003002 
003004 
003012 

003014 
003020 
003022 
003024 
003030 
003032 
003036 
003040 
003044 
003050 
003054 
003060 
003064 
003070 
003074 
003076 
003102 



VIO-Ol-l 
MACRO V05.03 



D 4 
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20-MAY-1986 



Fiche 1 Frame D4 



Sequence 42 



012700 
012701 
105067 
105721 
100004 
116161 
000402 

105367 
005300 
003366 
105767 
001022 
012700 
0050C1 
012702 
012703 
012704 
012705 
004777 
004767 
105767 
001353 
012703 
000207 



EXECUT: 



.SBTTL 

.SBTTL COMMAND EXECUTER 

.ENABL LSB 

EXECUTE THE COMMAND JUST PARSED 

INPUTS: 'WHATTODO' POINTS TO ROUTINE TO EXECUTE 

ALL COMMAND RELATED DATA SET UP BY PARSER 



OUTPUTS: 
EFFECTS: 



ALL REGISTERS ARE VOLATILE 
NONE 



IF<RPTFLG=0> 
1F<RPTFLG=1> 



THEN<COMMAND EXECUTED 0NCE> 
THEN<COMMAND EXECUTED CONTINUOUSLY > 



000003 

035420* 

017510 



000002 177777 

017470 

032364 

035400' 

011124' 

035622* 

173032 

173034 

032332 

005052 

032321 

016132' 



SEQUENCE OF ACTION: 

1) APPLY SWITCHES OR DEFAULTS FOR RADIX .ADDRESS SPACE. DATA LENGTH 

2) EXECUTE COMMAND 

3) TEST FOR REPEAT 



POINT Rl TO CURRENT RADIX BYTE 

USE TEMRAD AS A FLAG FOR 'DOSTDF ' 

TEST FOR SWITCH ON RADIX. ADDRESS SPACE. OR LENGTH 

BR IF A SWITCH HAS APPLIED 

MOVE DEFAULT TO CURRENT USAGE BYTE 





MOV 


#3.R0 




MOV 


fCURRAD.Rl 




CLRB 


TMPRAD 


10$: 


TSTB 


(R!>* 




BPL 


20$ 




MOVB 


2(R1).-KR1) 




BR 


25$ 


20$: 


DECB 


TMPRAD 


25$: 


DEC 


RO 




BGT 


10$ 


30$: 


TSTB 


ABORT 




BNE 


40$ 


SHOUIN: 


MOV 


flCONTL.RO 




CLR 


Rl 




MGV 


#TSTRUN,R2 




MOV 


#FLAG.R3 




MOV 


JMCR.R4 




MOV 


#MCS.R5 




JSR 


PC.aWHATTODO 




JSR 


PC.TSTHAL 




TSTB 


RPTFLG 




BNE 


30$ 


40$: 


MOV 


•MTE0L.R3 


RTSINS: 


RTS 


PC 

.DSABL LSB 



;NOTE THAT AT LEAST ONE QUALIFIER APPLIED 



.-TEST FOR COMMAND ABORT 
;BR IF ABORT SET 



;USEFUL POINTER FOR MANY COMMANDS 
.-DITTO 



PERFORM COMMAND 

TEST FOR A HALT 

TEST FOR REPEAT 

BR IF REPEAT IS SET 

HILL CAUSE 'RECOG' TO QUIT PARSING 



ZZ-ESKAA-10.1 COMMAND EXECUTION RTN REGISTER USAGE SUMMARY 
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E A 



20-MAY-1986 



Fiche 1 Frane E4 



Sequence 43 



2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 



.SBTTL COMMAND EXECUTION RTN REGISTER USAGE SUMMARY 

ALL OF THE FOLLOWING ROUTINES IN THIS MODULE CALLED 'DOXXXX 
ARE ENTERED BY THE ROUTINE CALLED "EXECUT" 



THE GENERAL REGISTERS ARE PRESET BY 'EXECUT* AS FOLLOWS: 
RO-->"TCONTL' 
Rl IS CLEAR (0) 
R2-->"TSTRUN* 
R3-->'FLAG" 
R4--> NCR REGISTER 
R5--> MCS REGISTER 



Z2-ESKAA-10.1 BOOT. PROCESS INDIRECT FILE. CLEAR SOMM. CONTINUE 
V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 19 
BOOT. PROCESS INDIRECT FILE. CLEAR SOHH. CONTINUE 



F 4 



20-HAY-1986 



Fiche 1 Frane F4 



Sequence 44 



2338 








2339 








2340 








2341 








2342 


0031C4 






2343 








2344 


003104 


004767 


006214 


2345 


"03110 


103442 




2346 


,>031i2 


004712 




2347 


003114 


103440 




2348 


003116 


105267 


037745' 


2349 


003122 


105267 


037746' 


2350 


003126 


004767 


001212 


2351 


003132 


105267 


017353 


2352 


003136 


000402 




2353 








2354 


003140 






2355 








2356 








2357 


003140 


105067 


017345 


2358 


003144 






2359 


003154 


103420 




2360 


003156 


005067 


017402 


2361 


003162 


012700 


022564' 


2362 


003166 


012640 




2363 


003170 


012640 




2364 


003172 


012740 


023400' 


2365 


003176 


052713 


000200 


2366 


003202 


042713 


000100 


2367 


003206 


000207 




2368 








2369 


003210 






2370 








2371 


003210 


042714 


000100 


2372 


003214 


000241 




2373 


003216 


000207 




2374 








2375 


003220 






2376 








2377 








2378 








2379 


003220 


004767 


OC6100 


2380 


003224 


103774 




2381 


003226 


004712 




2382 


003230 


103772 




2383 


003232 


004767 


005360 


2384 


003236 


012700 


000447 


2385 


003242 


004767 


005464 


2386 








2387 


003246 


103763 




2388 


003250 


106746 




2389 


003252 


106427 


000340 


2390 


003256 


005767 


032340 


2391 


003262 


100402 




2392 


003264 


042714 


100000 



DOAUTR: 
DOINDI: 

5$: 

CLRSIB: 
LNKENT: 



DOCLSO: 



10$: 
20$: 

DOCONT 



.SBTTL BOOT. PROCESS INDIRECT FILE. CLEAR SOMM. CONTINUE 
.ENABL LSB 



DOBOOT: .-PERFORM A BOOT SEQUENCE 



:R2 

JSR 

BC< 

JSF 

BCS 

INCB 

INCB 

JSR 

INCB 

BR 



-> 



•TSTkUN' 
PC..STVER 
20$ 

PC.CR2) 
20$ 

HRMSTR 
CLDSTR 
PC.STRTCK 
NOECHO 
5$ 



INSURE VERSION COMPATIBILITY BETWEEN PCS.WCS.FPLA 
BR IF FATAL INCOMPATIBILITY 
TEST FOR STAR RUNNING 
BR IF SO 

SET HARM-START AND COLD-START FLAGS 
WHENEVER TRYING TO BOOT (EDIT-16) 
START CPU CLOCK 
SET 'NO ECHO" FLAG( AUTO-RESTART ENTRY) 



.-OPEN AN INDIRECT COMMAND FILE 

;R2-->'TSTRUN* 

;R3-->'FLAG' 



CLRB NOECHO 

OPEN$ fFlLENM 

BCS 20$ 

CLR SECLOD 

MOV *INDSEC*2.R0 

MOV (SP)*.-(RQ> 

MOV (SP)*.-(R0) 

MOV #BUF0-128..-(R0) 

BIS #INDM0D.(R3) 

BIC #WFD0NE.(R3) 

RTS PC 



OR 1 



CLEAR 'NO ECHO' FLAG 

OPEN FILE ON DRIVE 

BR IF OPEN FAILED 

GUARANTEES A CHANGE IN FLOPPIES WON'T SCREW UP 

RO GETS A LIST POINTER 

SAVE STARTING SECTOR OF FILE 

SAVE # OF SECTORS IN FILE 

.•CAUSE FIRST SECTOR TO BE READ 
.•ENABLE INDIRECT MODE 
;INIT 'WAIT FOR DONE' FLAG 



.•CLEAR SOMM ENABLE ON CPU INTERFACE BOARD 

;R4-->MCR 

BIC #S0MMB.(R4) 

CLC 

RTS PC 

PERFORM A STAR CPU CONTINUE 



CONTSQ: 



;R2-- 


>TSTRUN 


;R4-- 


>MCR 


;R5-- 


>MCS 


JSR 


PC.TSTVER 


BCS 


20$ 


JSR 


PC.(R2) 


BCS 


20$ 


JSR 


PC.TSTTY2 


MOV 


fCONCON.RO 


JSR 


PC.PUSHU 


;CLR 


Rl 


BCS 


20$ 


MFPS 


-(SP) 


MIPS 


• 340 


TST 


FLAG 


BMI 


30$ 


BIC 


*HLTREQ.(R4) 



INSURE VERSION COMPATIBILITY BETWEEN PCS.UCS. AND FPLA 

BR IF FATAL INCOMPATIBILITY 

TEST FOR CPU RUNNING 

EXIT IF CPU RUNNING 

CLEAR OUT CODE 2 MICRO-ERRORS 

RO GETS ADDRESS OF ! 'CRO-CONTINUE 

PUSH RO ON MICRO-STACK 

(IN -PUSHU* RTN) 

BR IF CLOCK STOPPED 

•*• 

BLOCK OUT LSI INTERRUPTS 

TEST FOR SINGLE INST MODE 

BR IF SINGLE INST 

CLEAR HALT REQUEST BIT ON C IB 



ZZ-ESKAA-10.1 BOOT. PROCESS INDIRECT FILE. CLEAR SOMM. CONTINUE 
V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 19-1 
BOOT. PROCESS INDIRECT FILE. CLEAR SOMM. CONTINUE 



G 4 



20-HAY-1986 



Fiche 1 Frame G4 



Sequence 45 



2393 


003270 


012702 


173014 


2394 


003274 


005022 




2395 


003276 


00501? 




2396 


003300 


052722 


000200 


2397 


003304 


032767 


000004 032310 


2398 


003312 


001407 




2399 


003314 


C16722 


033256 


2400 


003320 


016722 


033254 


2401 


003324 


052737 


000200 173014 


2402 


003332 


042767 


020002 032262 


2403 


003340 


105767 


032051 


2404 


003344 


001005 




2405 


003346 


105267 


032243 


2406 


003352 


042767 


100400 032152 


2407 


003360 


042714 


000400 


2408 


003364 


052715 


000140 


2409 


003370 


052714 


002000 


2410 


003374 


106426 




2411 








2412 








2413 


003376 


000706 




2414 








2415 


003400 






2416 


003400 


012746 


000012 


2417 


003404 


012746 


000016 


2418 








2419 








2420 








2421 








2422 








2423 








2424 








2425 








2426 








2427 








2428 


003410 


032713 


000200 


2429 


003414 


001262 




2430 


003416 


000657 




2431 








2432 








2433 








2434 








2435 








2436 









30$ 



40$: 



50$ 



MOV 

CLR 

CLR 

BIS 

BIT 

BEQ 

MOV 

MOV 

BIS 

BIC 

TSTB 

BNE 

INCB 

BIC 

BIC 

BIS 

BIS 

MTPS 



BR 



#RXD0NE.R2 

(R2)* 

(R2) 

#TXRDY.(R2)* 

#IDSAVD.FLAG 

40$ 

SAVIDL.(R2>* 



.•RESTORE THE ID BUS INTERFACE TO STARLET 

;CLEAR 'RX DONE" 

.•INSURE *TX READY" STARTS OUT CLEAR 

;SET 'TX READY' 

.-TEST FOR 'TOID' REGISTER SAVED 

;BR IF NOT SAVED 

.•RESTORE •TOID* REGISTER 



SAVIDH.(R2>* 

#RXDNE.9#RXDONE ;SET 'RX DONE' 

#SAWHLT!SFHDON.FLAG .-CLEAR 'HALT SEEN' AND 'SOFTWARE DONE* 

RPTFLG ;IS REPEAT SET? (PX0102) 

5P$ ;BR IF IT IS AND SKIP SETTING P I/O 

PGHIOH ;ENABLE PROGRAM I/O MODE 

#ROFLAG!PRNINH.TCTFLG ;CLEAR PRINT-INHIBIT. RUBOUT SERVICE 

/STRIND.CR4) ;ENABLE STAR INTERRUPTS FROM RX AND TX 

#RDYIE!DNEIE.(R5) .-ENABLE LSI INTS FROM 'TXRDY' AND 'RXDNE* 

#MAINTR.(R4) .-POP MICRO-STACK 

(SP>* ;•** 

;AT THIS POINT UE WILL INTERRUPT OUT OF HERE IF THERE 

;IS A CHARACTER TO GO TO THE STAR CPU VIA 'TOID' 

10$ .-EXIT 



DOPERF: 



.•PROCESS A FILE OF 
MOV #10. .-(SP) 
MOV #14. .-(SP) 



LINKED COMMANDS 

.•STACK MAX t OF 
;STACK STARTING 



SECTORS IN LINK FILE 
LOGICAL SECTOR(LOG BLK 3) 



BEGIN EDIT-26 V01 



THE c OLLOWlNG FIX ALLOWS LINK FILES OF LESS THAN 128 BYTES 
TO BE EXECUTED CONTINUOUSLY. WITHOUT HAVING TO RE-READ THE 
LINK FILE ON EACH RE-EXECUTION. BASICALLY. THE LOGIC OF 
THIS FIX IS AS FOLLOWS: 

IF<EXECUTING A PERFORM. 'AND' CONSOLE ALREADY IN 'a' MCDE> 
T HEN<INHIBIT CLEARING THE 'CURRENT-SECTOR- IN-BUFFER ' VARIABLE> 



BIT 
BNE 
BR 



#INDM0D.(R3) 

LNKENT 

CLRSIB 



IS CONSOLE IN INDIRECT MODE? 

BR IF YES. DO NOT CLEAR 'CURRENT SECTOR' VARIABLE 
CLEAR THE 'CURRENT SECTOR IN BUFFER' VARIABLE SC 
THAT THE FLOPPY WILL BE READ REGARDLESS OF THE 
SECTOR $ THAT IS ALREADY IN THE BUFFER. 
END OF EDIT-26 V01 



DSABL LSB 



003420 



003420 
003424 
003430 
003432 
003434 
003436 
003444 
003452 
003454 
003456 
003462 
003466 
003470 
003474 



ZZ-ESKAA-10.1 
V10-01-L 
START. UN JAM 



2438 
2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 



H 4 



START, UNJAfl 
MACRO V05.03 
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2Q-MAY-1986 



Fiche 1 Frame H4 



Sequence 46 



003502 
003506 
003510 
003514 
003520 
003522 



003524 



003524 
003526 
003530 
003534 
003540 
003542 
003546 

0035/!6 
003552 
003554 
003560 



042710 
004767 
103421 
004712 
103417 
016767 
016767 
005710 
100010 
016700 
004767 
103402 
052714 
000207 



003476 004767 



004767 
103772 
105267 
004767 
103765 
000643 



004712 
103414 
012700 
004767 
103407 
052714 



004767 
103402 
004767 
000207 



033100 
005244 

002000 



000130 

004212 

031676 
002260 



000452 
005172 

102000 



004146 
004176 



.SBTTL START. UNJAM 
.ENABL LSB 
DOSTAR: .-PERFORM A STAR CPU START( INIT .DEPOSIT PC. CONTINUE) 



000020 
005674 



033142 033116 
033136 033112 



10$: 
20$: 



COMWAT; 



30$: 



;R0-- 


•>'TCONTL* 


;R2- 


^'TSTRUN* 


;R4-- 


■>*nCR' 


BIC 


*INITLD.(R0) 


JSR 


PC.TSTVER 


BCS 


10$ 


JSR 


PC.(R2) 


BCS 


10$ 


MOV 


EFFADR.DATATO 


MOV 


EFFADR-2.DATAT0 


TST 


(RO) 


BPL 


20$ 


MOV 


DATATO.RO 


JSR 


PC.PUSHU 


BCS 


10$ 


BIS 


*MAINTR.CR4) 


RTS 


PC 


JSR 


PC.INITQU 


JSR 


PC.CWAIT 


BCS 


10$ 


INCB 


DEEXBY 


JSR 


PC.EXDEPC 


BCS 


10$ 


BR 


CONTSQ 


.•PERFORM AN SBI UNJAM 


;R2- 


->TSTRUN 


;R4- 


->HCR 


JSR 


PC.CR2) 


BCS 


30$ 


MOV 


•SBIUNJ.RO 


JSR 


PC.PUSHU 


BCS 


30$ 


BIS 


J(MAINTR.(R4) 




.-WAIT FOR STAR 




.•OUTPUTS: 


JSR 


PC.CWAIT 


BCS 


30$ 


JSR 


PC.TSTERR 


RTS 


PC 


.DSABL LSB 



CLEAR AUTO-RESTART FLAG 

INSURE COMPATIBILITY BETWEEN PCS. UCS. AND TPLA 

BR IF FATAL INCOMPATIBILITY 

TEST FDR CPU RUNNING 

BR IF CPU RUNNING 

PUT EFFECTIVE ADDRESS INTO DEPOSIT DATA AREA 

TEST FOR A UCS START 

BR IF NOT A UCS START 

RO GETS ADDRESS TO START AT 

PUSH RO ON MICRO-STACK 

BR IF CLOCK STOPPED 

POP HICRO-STACK 



;DO A STAR INIT AND CLEAR STARLET INPUT QUEUE 

(EDIT-21A) 
.•WAIT FOR INIT TO FINISH 
;EXIT IF TIME OUT 
.•FORCE A DEPOSIT 
.•DEPOSIT •DATATO* TO STAR PC 
;BR IF DEPOSIT FAILED 
;DO A CONTINUE 



TEST FOR CPU RUNNING 

BR IF RUNNING 

RO GETS ADDRESS OF UNJAM SBI MICRO-RTN 

PUSH RO ONTO MICRO-STACK 

BR IF PUSH FAILED 

POP MICRO-STACK TO MICRO-PC 
PU TO RESPOND. THEN TEST FOR ERRORS 
C BIT SET IF TIMEOUT OR ERROR 

WAIT FOR COMPLETION 

BR IF WAIT TIMED OUT 

TEST FOR SUCCESS ON FUNCTION 



ZZ-ESKAA-10.1 


HALT. INITIALIZE 


V10-01-L 




MACRO V05.03 Friday 2f 


HALT. INITIALIZE 






2489 








2490 








2491 








2492 








2493 


003562 






2494 








2495 








2496 


003562 


105715 




2497 


003564 


100004 




2498 


003566 






2499 


003574 


000407 




2500 








2501 


003576 


052714 


100000 


2502 


003602 


004767 


177740 


2503 


003606 


103403 




2504 


003610 


004767 


004374 


2505 


003614 


000241 




2506 


003616 


000207 




2507 








2508 








2509 


003620 






2510 








2511 








2512 


003620 


004712 




2513 


003622 


103775 




2514 


003624 


004767 


000002 


2515 








2516 


003630 


000746 




2517 








2518 


003632 






2519 








2520 


003632 


012767 


036246* 032360 


2521 


003640 


012767 


036246' 032354 


2522 


003646 


105067 


032352 


2523 








2524 








2525 


003652 






2526 








2527 


003652 


012703 


035622' 


2528 


003656 


042713 


000004 


2529 


003662 


005067 


032726 


2530 


003666 


005067 


032724 


2531 


003672 


052714 


000002 


2532 


003676 


052714 


010000 


2533 


003702 


042714 


000200 


2534 


003706 


004767 


000432 


2535 


003712 


042714 


010000 


2536 


003716 


042713 


000040 


2537 


003722 


052713 


000002 


2538 


003726 


000207 




2539 








2540 








2541 
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Fiche 1 Frame 14 



Sequence 47 



DOINIT 



INITQU 



.SBTTL HALT. INITIALIZE 







.ENABL LSE 


DOHALT: 


.-PERFORM A STAR CPU 




.-R4-- 


->HCR 




:R5-- 


->MCS 




TSTB 


(R5) 




BPL 


10$ 




TYPEMES *ALRDHA..CR 




BR 


20$ 


10$: 


BIS 


*HLTREQ.(R4) 




JSR 


PC.COMUAT 




BCS 


30$ 




JSR 


PC.REPHLT 


20$: 


CLC 




30$: 


RTS 


PC 



TEST FOR CPU ALREADY HALTED 

BR IF NOT HALTED 

TELL OPERATOR ALREADY HALTED 

EXIT 

REQUEST STAR TO HALT 
WAIT FOR STAR TO HAL! 
SKIP HALT REPORT IF TIMEOUT 
RCPCRT THE HALT 



PERFORM A STAR CPU INITIALIZE 

INITIALIZE PRIMITIVE 

R2-->'TSTRUN* 
JSfc PC.CR2) 

BCS 30$ 

JSR PC. INITQU 



BR 



COMWAT 



.-TEST FOR CPU RUNNING 
;BR IF CPU IS RUNNING 
;DO COMMON INITIALIZE SEQUENCE AND 

CLEAR STARLET INPUT QUEUE (EDIT-21A) 
;GO UAIT FOR STAR TO FINISH 



.•INITIALIZE STARLET INPUT QUEUE (EDIT-21A) 
; USED ON 'LOAD CONSOLE* . 'INIT' . 'START* 

MOV IQUEBGN.FILLP .-SET FILL POINTER TO BEGINNING OF QUEUE 
MOV JfQUEBGN.EMPTYP .-RESET BUFFER EMPTY POINTER 
CLRB QUECNT .-SET QUEUE COUNTER TO 

; (END EDIT-21A) 

INITRT: .-COMMON INITIALIZE SEQUENCE 
;R4-->HCR 

MOV IFLAG.R3 

BIC IIDSAVD.CR3) 

CLR TBFOSV 

CLR TBF0SV*2 

BIS ISBC.(R4) 

BIS ICPURES.(R4) 

BIC #RO«N0P.(R4) 

JSR PC.STRTCK 

BIC *CPURES.(R4) 

BIC fSAHE.?R.(R3) 

BIS #SAwHLT.(R3) 

RTS PC 



.DSABL LSB 



;FORGET ABOUT SAVED ID BUS STATE 
.-CLEAR TBUFO SAVED STATE 

STOP CPU CLOCK 

ISSUE A CPU HARDWARE RESET 

MAKE SURE ROM NOP IS CLEAR 

RESTART CPU CLOCK 

DEASSERT CPU RESET SIGNAL 

FORGET ABOUT ANY CODE 2 MICRO-ERRORS 

INHIBIT REPORTING A HALT 



ZZ-ESKAA-10.1 
V10-01-L 
NEXTCPERFORM A 



NEXTCPERFORM 
MACRO V05.03 
STEP) 



A STEP) 
Fr iday 



25-Apr-86 10:56 Page 22 



J 4 



20-MAY-1986 



Fiche 1 Fraae J4 



Sequence 48 



2544 












2545 








.ENABL 


LSB 


2546 












2547 003730 






DONEXT: 


.•PERFORM ft STEP 


2548 








;R3--> 


•FLAG* 


2549 








;R4--> 


•NCR' 


2550 003730 


005767 


031452 




TST 


COUNT 


2551 003734 


003002 






BGT 


10$ 


2552 003736 


052713 


001000 




BIS 


*SPCSTP.(R3) 


2553 003742 


032714 


000006 


10$: 


BIT 


#STS!SBC.(R4) : 


2554 003746 


001007 






BNE 


20$ 


2555 003750 


005713 






TST 


(R3) 


2556 003752 


100405 






BMI 


20$ 


2557 003754 


004767 


000350 




JSR 


PC.DOSST1 


2558 003760 


105267 


031427 




INCB 


DEFSTP 


2559 003764 


000402 






BR 


25$ 


2560 












2561 003766 


005713 




20$: 


TST 


( R3 ) 


2562 003770 


100024 






BPL 


40$ 


2563 003772 


004767 


005126 


25$: 


JSR 


PC.TSTRUN 


2564 003776 


103446 






BCS 


80$ : 


2565 004000 


004767 


005320 




JSR 


PC.TSTVER : 


2566 004004 


103443 






BCS 


80$ : 


2567 004006 


004767 


177220 




JSR 


PC.CONTSQ : 


2568 








;CLR 


Rl ; 


2569 004012 


004767 


003576 


30$: 


JSR 


PC.TSTCLK 


2570 004016 


103436 






BCS 


80$ ; 


2571 004020 


004767 


004116 




JSR 


PC.TSTHAL 


2572 004024 


103414 






BCS 


50$ 


2573 004026 


005201 






INC 


Rl 


2574 004030 


001370 






ENE 


30$ 


2575 004032 








TYPEMES #TMEOUT..CR 


2576 004040 


000425 






BR 


80$ 


2577 












2578 004042 


004767 


000364 


40$: 


JSR 


PC.DOSTPG 


2579 004046 


052714 


000001 




BIS 


#PR0CED,(R4) 


2580 004052 


004767 


003334 




JSR 


PC.TYPTIC 


2581 004056 


042713 


000400 


50$: 


BIC 


#SPCSYC.(R3> 


2582 004062 


105767 


031326 


60$: 


TSTB 


ABO^T 


2583 004066 


001012 






BNE 


80$ 


1584 004070 


032713 


001000 




BIT 


#SPCSTP.(R3) 


2585 004074 


001404 






BEQ 


70$ 


2586 004076 


032713 


000400 




BIT 


#SPCSYC.(R3) 


2587 004102 


001767 






BEQ 


60$ 


2588 004104 


000730 






BR 


20$ 


2589 












2590 004106 


005367 


031274 


70$: 


DEC 


COUNT 


2591 004112 


003325 






BGT 


20$ 


2592 004114 


105767 


031273 


80$: 


TSTB 


DEFSTP 


2593 004120 


001402 






BEQ 


90$ 


2594 004122 


004767 


000266 




JSR 


PC.DOSSTN 


2595 004126 


042767 


000020 


031244 90$: 


BIC 


#INITlD.TCONTL 


2596 004134 


000207 






RTS 


PC 


2597 













TEST FOR ENABLE SPACE-BAR-STEP MODE 

BR IF STEP COUNT > 

ENABLE SPACE-BAR-STEP MODE 

TEST FOR SINGLE BUS CYCLE OR TIME STATE MODE 

BR IF EITHER 

TEST FOR SINGLE INST MODE 

BR IF SINGLE INST 

SET SINGLE INST MODE 

REMEMBER WE DEFAULTED TO INST STEP 



TEST FOR SINGLE INST MODE 

BR IF NOT SINGLE INSTRUCTION 

TEST FOR CPU RUNNING 

BR IF CPU IS RUNNING 

CHECK FOR MICRO-VERSION MISMATCH 

ABORT IF FATAL HISHATCH(C SET) 

DO A STAR CPU CONTINUE 

(DONE BY 'PUSHU* RTN) 

TEST FOR CLOCK STOPPED 

BR IF CLOCK STOPPED 

TEST FOR CPU HALTED 

BR IF HALTED 

UPDATE TIMEOUT COUNTER 

BR IF NOT TIMED-OUT YET 

TYPE TIMEOUT MESSAGE 

ABORT STEPPING 

ENABLE PROGRAM I/O MODE 

ISSUE A PROCEED TO CPU CLOCK 

TYPE CLOCK STATE 

CLEAR SPACE-BAR SYNC FLAG 

TEST FOR COMMAND ABORTED 

BR IF ABORTEDtVlA CONTROL-C) 

TEST FOR SPACE-BAR STEP MODE 

BR IF NOT IN SPACE-BAR-STEP MODE 

WAIT FOR SPACE-SYNC TC SET 

;SPACE-SYNC SET. NOW DO NEXT STEP 

DECREASE STEP COUNTER 

BR IF MORE STEPS TO DO 

SEE IF WE WERE DEFAULTING TO INST STEP 

BR IF Ul WERE NOT DEFAULTING 

RETURN CLOCK TO NORMAL MODE 

MAKE SURE WE DO NOT AUTO-RESTART 



K 4 

ZZ-ESJCAA-10.1 MEXKPERFORH A STEP) 20-HAY-1986 Fiche 1 Fraae K4 Sequence 49 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 22-1 
NEXTCPERFORM A STEP) 

2598 .DSABL LSB 



ZZ-ESKAA-10.1 
V10-01-L 
QUAD CLEAR 

2600 

2601 

2602 

2603 

2604 004136 

2605 

2606 

2607 004136 

2608 004144 

2609 004152 
26! C 004154 

2611 004156 

2612 004164 

2613 004170 

2614 004174 

2615 004176 

2616 004202 

2617 004206 

2618 004212 

2619 004216 

2620 &04220 

2621 004226 

2622 004232 

2623 004240 

2624 004244 

2625 004250 

2626 004254 

2627 004256 
2628 

2629 004260 
2630 
2631 

2632 004260 

2633 004264 

2634 004272 

2635 004274 

2636 004300 
2637 

2638 004302 

2639 004306 
2640 

2641 004312 

2642 004314 

2643 004320 

2644 004322 

2645 004324 

2646 004326 
2647 
2648 



QUAD CLEAR 
MACRO V05.O3 



L 4 



Friday 25- Apr -86 10:56 Page 23 



20-MAY-1986 



Fiche 1 Frame L4 



Sequence 50 



112767 

112767 

004712 

103435 

042767 

012700 

00476/ 

103425 

016700 

016701 

012702 

004767 

103417 

012737 

005037 

052737 

052714 

004767 

004767 

103743 

000207 



004767 
032767 
001403 
004767 
000402 

004767 
105767 

001003 
005367 
002001 
005727 
000261 
000207 



000007 
000445 
004536 

032402 
032400 
000062 
004540 

000066 
173022 
000200 
002000 
177276 
000004 



001026 
000400 

013276 



013266 
031102 



031064 



DOQCLE: 



000003 031255 
0000O0 031250 



032420 



10$: 



1/3020 
173014 



20$: 
30$: 
COMPAD 



031106 



40$; 
50$: 



60$ 
55$ 



.SBTTL QUAD CLEAR 

.ENABL LSB 

.•PERFORM A QUAD CLEAR 

;R2—>TSTRUN 

;R4— >HCR 

MQVB 

HOVB 

JSR 

BCS 

BIC 

MOV 

JSR 

BCS 

MOV 

MOV 

MOV 

JSR 

BCS 

MOV 

CLR 

BIS 

BIS 

JSR 

JSR 

BCS 

RTS 



fQADLNH.CURLNH 

fPHYSPC.CURADS 

PC.CR2) 

20$ 

#7. EFFADR 

*CPREGE-1.R0 

PC.PUSHU 

20$ 

EFFADR.RO 

£FFADR*2.R1 

#T2.R2 

PC.HRIT1D 

30$ 

#INTR36,a#T0IDL0 

a*T8IDHI 

#RXDNE,a#RXDONE 

#MAINTR,(R4) 

PC.COMWAT 

PC.COMPAD 

10$ 

PC 



FORCE QUAD LENGTH 

FORCE PHYSICAL ADDRESSING 

TEST FOR CPU RUNNING 

BR IF CPU RUNNING 

FORCE ADDRESS TO QUAD BOUNDARY 

RO GETS ADDRESS OF INT REG DEP RTN 

PUSH RO ON MICRO-STACK 

BR IF PUSH FAILED 

RO AND Rl GET ADDRESS TO QUAD CLEAR 

R2 GETS ID BUS REG ADDRESS 

WRITE ADDRESS PARAMETER TO ID REG 'T2' 

BR IF ID WRITE FAILED 

;PUT ADDRESS OF 'QUAD CLEAR' INT REG IN 'TOID* 

SET *RX DONE ' 

POP MICRO-STACK TO UPC. START INT REG DEPOSIT RTN 

WAIT FOR STAR TO FINISH 

UPDATE 'EFFADR' 

BR IF MORE ITERATIONS TO DO 



UPDATE 'EFFADR' AND CHECK FOR ITERATIONS 
OUTPJTS: C BIT CLEAR IF COMMAND IS FINISHED 
C BIT SET IF MORE ITERATIONS 



JSR 
BIT 
BEQ 
JSR 
BR 

JSR 

TSTB 

:CLC 

BNE 

DEC 

DGE 

TST 

SEC 

RTS 



PC.SETLAS 

/MINSAD.TCONTL 

40$ 

PC.SETMNS 

50$ 

PC.SETPLS 
ABORT 

60$ 

NEXTCT 
55$ 
(PC)* 

PC 



'LASADD' GETS CONTENTS OF 'EFFADR' 

REVERSE ADDRESS UPDATE? 

BR IF NO 

'EFFADR' GETS 'EFFADR' MINUS DATALENGTH 



; 'EFFADR' GETS 'EFFADR' PLUS DATA LENGTH 
rABORT SET? 



;BR TO EXIT IF YES 
; MORE TO DO? 
; BRANCH IF YES 
.-CLEAR C BIT 



.DSABL LSB 
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SET STEP. CLOCK. SOHH 



M 4 



20-MAY-1986 



Fiche 1 Fraae M4 



Sequence 51 



2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
26 7 > 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2/,91 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
270C 
2701 
2702 
2703 
2704 



004330 



004330 
004334 
004340 
004344 
004350 
004354 



004356 

004356 
004362 
004366 
004374 

004376 

004376 
004402 
004406 
0G4412 

004414 

0C4414 
004420 



004422 
004422 
004430 



004432 
004432 
004436 
004444 
00*452 



004454 

004454 
004460 



004462 



052714 
042713 
052713 
042714 
052714 
000207 



042714 
052714 
042767 
000207 



004767 
042714 
052714 
000207 



042713 
000751 



116767 
000207 



105267 
042767 
052737 
000207 



052714 
000207 



10000O 
040000 
100000 
000006 
000001 



000004 
000002 
100000 



177754 
000002 
000004 



140000 



031226 



DOSSTS: 



DOSSTN: 



032134 031117 



031157 
100400 
000200 



000100 



DOSTCF 



.SBTTL SET STEP. CLOCK. SOMM 
.ENABL LSB 



DOSSTI : 


.-SET 


STEP TO SINGLE I 




;R3- 


->FLAG 




;R4- 


->HCR 




BIS 


#HLTREQ.U4) 




BIC 


*IGNORE.(R3) 




BIS 


#SNGINS.(R3) 


STRTCK: 


BIC 


#STS!SBC.(R4> 




BIS 


#PR0CED.(R4) 




RTS 


PC 


DOSSTB: 


.-SET 


CLOCK TO SINGLE 




;R4- 


->MCR 




BIC 


#STS.(R4) 




BIS 


*SBC.(R4) 




BIC 


ISNGINS.FLAG 




RTS 


PC 



REQUEST STAR TO HALT 

ALLOW CIOCK STOPS TO REPORT 

REMEMBER SINGLE INSTRUCTION STEP MODE 

CLEAR SINGLE BUS CYCLE AND TIME STATE 

START CLOCK 



BUS CYCLE 



;SET SINGLE BUS CYCLE CLOCK BIT 
.•CLEAR SINGLE INSTRUCTION MODE 



.-SET CLOCK TO SINGLE TIME STATE 

;R4-->MCR 

JSR PC. DOSSTB .-SET SINGLE BUS CYCLE FIRST 

BIC #SBC.(R4> .-CLEAR SBC 

BIS #STS.(R4> ;SET SINGLE TIME STATE 

RTS PC 



DOSTER: 



DOSTPG 



031066 

173016 SETTXR: 



DOSTSO 



;SET CLOCK TO FREE RUN 

:R3-->*FLA6' 

BIC *SNGINS!IGN0RE.(R3) 

BR STRTCK 



;SET TERMINAL FILL 
MOVB DATATO.TERFIL 
RTS PC 



;SET PROGRAM I/O MODE 

INCB PGMIOM 

BIC #ROFLAG!PRNINri.TCTFI_G 

BIS #TXRDY.a#TXREAD 

RTS PC 



;SET SOMM ON CIB 

;R4-->MCR 

BIS #S0MMB.(R4) 

RTS PC 



;SET CLOCK FREQ TO FAST 
;R4-->MCR 



.-CLEAR SNG INST STEP. ALLOW CLOCK REPORTING 



.-CLEAR PRINT-INHIBIT, 
.-SET 'TX READY" 



RUBOUT SERVICE 



ZZ-ESKAA-10.1 SET STEP .CLOCK. SOMM 
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SET STEP. CLOCK. SOMM 



N 4 



20-MAY-1986 



Fiche 1 Frame N4 



Sequence 52 



2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 



004462 004767 000006 
004466 052714 000010 
004472 000207 



004474 

004474 042714 000030 
004500 000207 



004502 

004502 004767 177766 

004506 052714 000020 

004512 000207 



JSR PC.DOSTCN 
BIS #FREQ0.(R4) 
RTS PC 



;SET FREQ TO NORMAL FIRST 



DOSTCN: 



;SET CLOCK FREQ TO NORMAL 

;R4-->MCR 

BIC *FREQ0!FREQ1.(R4) 

RTS "C 



DOSTCS: .-SET CLOCK FREQ TO SLOW 
;R4-->MCR 

JSR PC.DOSTCN ;SET CLOCK TO NORMAL FREQ FIRST 
BIS #FREQ1.(R4> 
RTS PC 

.DSABL LSB 



B 5 



ZZ-ESKAA-10.1 EXAMINE. DEPOSIT 
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Page 25 



20-HAY-19B6 



Fiche 1 Frane B5 



Sequence 53 



2724 






2725 






2726 






2727 






2728 004514 






2729 






2730 






2731 






2732 






2733 004514 


012701 


036604' 


2734 004520 


012146 




2735 004522 


011146 




2736 004524 


126727 


030672 000001 


2737 004532 


003006 




2738 004534 


005741 




2739 004536 


066721 


015760 


2740 004542 


305511 




2741 004544 


066711 


015754 


2742 004550 


004767 


000246 


2743 004554 


103475 




2744 004556 


105767 


030630 


274^ 004562 


001072 




2746 004564 


016767 


031752 015674 


2747 004572 


016767 


031746 015670 


2748 004600 


116700 


030616 


2749 004604 


020027 


000004 


2750 004610 


001010 




2751 004612 


026727 


031766 000017 


2752 004620 


001004 




2753 004622 






2754 004630 


000431 




2755 






2756 004632 


006300 




2757 004634 






2758 004642 


020027 


000002 


2759 004646 


001010 




2769 004650 


012703 


036610' 


2761 004654 


010346 




2762 004656 


012702 


000063 


2763 004662 


004767 


004154 


2764 004666 


000402 




2765 






2766 004670 


012746 


036604' 


2767 004674 


012746 


000004 


2768 004700 


004767 


000100 


2769 004704 


010246 




2770 004706 


004767 


140022' 


2771 004712 






2772 004714 






2773 004722 


012746 


036542' 


2774 004726 


016746 


015564 


2775 004732 


004767 


000046 


2776 004736 


010246 




2777 004740 


004767 


140022' 


2778 004744 







DODEEX: 



10$: 



15$: 



20$; 
30$: 



45$ 



.SBTTL EXAMINE. DEPOSIT 
.ENABL LSB 

PERFORM A DEPOSIT OR EXAMINE 

CALLED BY 'EXECUT* 

*DEEXBY'=0 IF EXAMINE 

•DEEXBY'=1 IF DEPOSIT 



MOV 

MOV 

MOV 

CMPB 

BGT 

TST 

ADD 

ADC 

ADD 

JSR 

BCS 

TSTB 

BNE 

MOV 

MOV 

MOVB 

CMP 

BNE 

CMP 

BNE 

TYPEMES 

BR 

ASL 

TYPEMES 

CMP 

BNE 

MOV 

MOV 

MOV 

JSR 

BR 

MOV 

MOV 

JSR 

MOV 

JSR 

TYPEMES 

TYPEMES 

MOV 

MOV 

JSR 

MOV 

JSR 

■MPEMES 



fEFFADR.Rl 

(R1)*.-(SP) 

(Rl).-(SP) 

CURADS.lVIRSPC 

10$ 

-(Rl) 

RELOCA.(Rl)* 

(Rl) 

REL0CA*2.(R1) 

PC.DEEXPM 

50$ 

DEEXBY 

50$ 

DATAFR.LASDAT 

DATAFR-2.LASDAT 

CURADS.RO 

R0.#IDBSPC 

15$ 

EFFADR.117 

15$ 

#PSLSTR..CR 

45$ 

RO 

IDNTTB(RO)..CR 

R0.#VIRSPC»2 

20$ 

JGOTID.R3 

R3.-(SP) 

#T3.R2 

PC.READ1D 

30$ 

#EFFADR.-(SP) 

*4.-(SP) 

PC.R2GRAD 

R2.-(SP) 

PC.CONVRT 

#THOSPC 

#DATAFR,-(SP) 

LNHDAT.-(SP) 

PC.R2GRAD 

R2.-(SP) 

PC.CONVRT 



;R1 GETS USEFUL F; INTER 

;SAVE EFFECTIVE ADDRESS ON STACK 

SEE IF RELOCATION TO BE APPLIED 

BR IF NOT VIRT OR PHYS ADDRESS 

POINT Rl TO EFFADR AGAIN 

ADD RELOCATION REGISTER TO EFFECTIVE ADDRESS 



DO THE DEPOSIT EXAMINE PRIMITIVE 

BR IF ERROR ON DE/EX 

TEST FOR EXAMINE 

BR IF DEPOSITCSKIP REPORTING) 

SAVE 'LAST DATA* 

RO GETS CODE FOR CURRENT ADDRESS SPACE 

CHECK FOR ID BUS REF(MAKE A CHECK FOR PSD 

BR IF NOT ID BUS 

CHECK FOR PSL'S ADDRESS 

BR IF NOT PSL REFERENCE 

TYPE SPACES IN LIEU OF ADDRESS 



♦2 



TYPE IDENTIFIER STRING 

CHECK FOR A VIRTUAL REFERENCE 

BR IF NOT VIRTUAL REFERENCE 

READ TRANSLATED ADDRESS FROM ID REG f3' 

STACK R3 FOR USE IN NEXT STEP BELOW 

R2 GETS ADDRESS OF ID REG 'T3' 

READ ID BUS REG 



STACK POINTER TO ADDRESS 

STACK LENGTH OF ADDRESS IN BYTES 

R2 GETS CURRENT RADIX VALUE 

STACK R2 FOR CONVERTER 

CONVERT ADDRESS TO ASCII STRING 

TYPE ADDRESS STRING 

TYPE 2 SPACES 

STACK POINTER TO RETURNED DATA 

STACK LENGTH OF DATA IN BYTES 

R2 GETS CURRENT RADIX VALUE 

STACK R2 FOR CONVERTER 

CONVERT RETURNED DATA TO ASCII STRING 

TYPE RETURNED DATA STRING 
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EXAMINE. DEPOSIT 



C 5 



20-MAY-1986 



Fiche 1 Frane C5 



Sequence 54 



2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 



004746 000406 



004750 
004756 
004764 
004770 
004774 
005000 
005002 

005004 

005004 
005010 
005014 
G05016 
005020 



016767 
016767 
012667 
012667 
004767 
103645 
000207 



012702 
105767 
001001 
006302 
000207 



031606 
031602 
031616 
031610 
177260 



000010 
030404 



015510 
015504 



50$: 
60$: 

90$: 
R2GRAD 



100$: 



BR 

MOV 
MOV 
MOV 
MOV 
JSR 
BCS 
RTS 

;R2 <• 

:R2 <• 

MOV 

TST9 

BNE 

ASL 

RTS 



60$ 

DATATO.LASDAT ;SAVE 'LAST DATA* 

DATAT0+2.1ASDAT-2 

(SP)*.EFFADR*2 .-RESTORE EFFECTIVE ADDRESS 



(SP)-.EFFADR 

PC.COMPAD 

DODEEX 

PC 



.•UPDATE •EFFADR'. TEST FOR ITERATIONS 
;BR IF MORE ITERATIONS 



16 IF RADIX CURRENTLY HEX 
8 IF RADIX CURRENTLY NOT HEX 



#8..R2 
CURRAD 
100$ 
R2 

PC 



ASSUME OCTAL 
CURRENT RADIX 
BR IF NOT 
CHANGE THE 8 TO 



HEX? 



A 16 



.DSABL LSB 



ZZ-ESKAA-10.1 
V10-01-L 
EXAMINE .DEPOSIT 
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D 5 



20-MAY-1986 



F i che 1 Frane D5 



Sequence 55 



2800 
2801 


005022 






2802 








2803 








2804 








2805 








2806 








2807 








2808 








2809 








2810 








2811 








2812 








2813 








2814 


005022 


004077 


140054* 


2815 


005026 


042713 


000011 


2816 


005032 


105067 


030561 


2817 


005036 


004767 


000274 


2818 


005042 


020227 


000003 


2819 


005046 


002403 




2820 


005050 


005302 




2821 


005052 


052713 


000010 


2822 


005056 


010267 


015436 


2823 


005062 


116702 


030334 


2824 


005066 


006302 




2825 


0C5070 


004772 


005232* 


2826 


C05074 


103454 




2827 


005076 


012703 


035622' 


2828 


005102 


126727 


030314 000002 


2829 


005110 


002042 




2830 


005112 


012701 


036604* 


2831 


005116 


032713 


000010 


2832 


005122 


001435 




2833 


005124 


032713 


000001 


2834 


005130 


001023 




2835 


005132 


052713 


000001 


2836 


005136 


012146 




2837 


005140 


011146 




2838 


005142 


016746 


031414 


2839 


005146 


016746 


031412 


2840 


005152 


062741 


000004 


2841 


005156 


005561 


000002 


2842 


005162 


016767 


031400 031372 


2843 


00S170 


016767 


031374 031366 


2844 


005176 


000731 




2845 








2846 


005200 


012667 


031360 


2847 


005204 


012667 


031352 


2848 


005210 


C12661 


000002 


2849 


005214 


012611 




2850 


005216 


105767 


030375 


2851 








2852 


005222 


001401 




2853 


005224 


000261 





DEEXPM; 



.ENABL LSB 

DEPOSIT OR EXAMINE SOMETHING 

*DEEXBY*=0 IF EXAHINE. 1 IF DEPOSIT 
*EFFADR'=ADDRESS TO USE 
*DATATO*=DATA FOR DEPOSIT 
*CURADS'=CODE FOR ADDRESS SPACE TO USE 

0=PHYS.1=VIRT.2=GEN.3=INTERNAL.4=IDBUS, 

5=C0NS0LE.6=VBUS 
'CURLNH*=CODE FOR DATA LENGTH 

0=BYTE.1=WORD.2=LONG.3=QUAD 



OUTPUTS: 



C BIT SET IF ERROR. ELSE 
*DATAFR*=EXAMINED DATA 



10$: 
20$: 



30$ 



40$ 



JSR 

BIC 

CLRB 

JSR 

CMP 

BLT 

DEC 

BIS 

MOV 

MOVB 

ASL 

JSR 

BCS 

MOV 

CMPB 

BGE 

MOV 

BIT 

BEQ 

BIT 

BNE 

BIS 

MOV 

MOV 

MOV 

MOV 

ADD 

ADC 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

TSTB 

;CLC 

BEQ 

SEC 



RO.aRSAVEP 

*SECHLF!QADTYP.( 

TIMOUT 

PC.SETLNH 

R2.JQADLNH 

10$ 

R2 

#QADTYP.(R3) 

R2.LNHC0D 

CURADS.R2 

R2 

PC.aEXDEVC(R2) 

50$ 

#FLAG.R3 

CURADS.fGENSPC 

40$ 

iEFFADR.Rl 

#QADTYP.(R3) 

40$ 

#SECHLF,(R3) 

30$ 

#SECHLF.(R3) 

(R1)*.-(SP) 

(Rl).-(SP) 

DATATO.-(SP) 

DATAT0-2.-CSP! 

#4.-(Rl) 

2(R1) 

DATAT0*4.DATAT0 

DATAT0-6.DATATO- 

20$ 

(SP)*.DATAT0*2 

(SP)*.DATATO 

(SP)-.2(R1) 

(SP)*.(R1> 

TiMOUT 

50$ 



;SAVE R0-R5. POINT R3 TO 'FLAG' 

R3) .-CLEAR SOME FLAGS 

;CLEAR TIMEOUT FLAG 

;'LNHDAT'<--LENGTH OF DATA IN BYTES. R2<--DATA LNH CODE 

.♦CHECK FOR QUAD LENGTH 

:BR IF NOT QUAD 

.•CHANGE TO LONG 

.-REMEMBER QUAD LENGTH 

.-SAVE DATA LENGTH FOR MICRO-CODE 

;R2 GETS ADDRESS SPACE CODE 

;DO 7 HAY BRANCH ON ADDRESS SPACE 

;BR IF FAILURE ON EX OR DE 

.•USEFUL POINTER TO R3 

.•CHECK FOR GEN REG SPACE 

.•SKIP QUAD TEST FOR ALL EXCEPT PHYS AND VIRT 

;R1 GETS POINTER TO EFFADR 

:TEST FOR QUAD LENGTH 

;BR IF NOT QUAD 

.•CHECK FOR SECOND PART OF QUAD DONE 

;BR IF SECOND HALF DONE 

.•REMEMBER SECOND HALF BEING DONE 

;SAVE EFFADR 

.•SAVE FIRST TWO WORDS OF QWORD DEPOSIT 

••EDIT-15" 
.-ADD 4 TO ADDRESS 

.-SET DATA FOR SECOND DEPOSIT 
2 



,-RESTOR FIRST TWO WORDS 
; * 'EDIT-15** 

;RESTORE EFFADR 

.•TIMEOUT OR ERROR? 
;BR IF NOT 



OF QWORD DEPOSIT 



E 5 
ZZ-ESKAA-10.1 EXAMINE. DEPOSIT 20-MAY-1986 Fiche 1 Frame E5 Sequence 56 

V10-01-L MACRO V05.03 Fridar 25-Apr-86 10:56 Page 26-1 
EXAMINE .DEPOSIT 

2854 005226 000167 002672 50$: JMP REPLAC .-RESTORE R0-R5.THEN RETURN 



ZZ-ESKAA-10.1 EXAMINE. DEPOSIT 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 27 

EXAMINE. DEPOSIT 



F 5 



20-MAY-1986 



Fiche 1 Frame F5 



Sequence 57 



2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 



2865 
2866 



2867 
2868 

2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 



005232 
005234 
005236 
005240 
005242 
005244 
005246 

005250 
005256 
005264 

005266 
005274 
005302 
005304 
005306 
005311 



005312 
005320 
005326 
005334 

005336 



005336 
005342 
005344 
005350 
005356 



005360' 
005364* 
005420* 
005434* 
005652* 
006176* 
006050' 

021537* 021537' 
021551* 021556* 
021570* 



EXDEVC 



WORD 


PHEXDE 


WORD 


VIEXDE 


WORD 


GEEXDE 


WORD 


INEXDE 


WORD 


IDEXDE 


WORD 


COEXDE 


WORD 


VBEXDE 



MICRO-ASSISTED ROUTINE 



NON-MICRO-ASSISTED 



022516* 
005304* 
005304* 
000001 
001 
010 



022516* 
005304* 



002 



021544* 
021563* 



005304* 
022516* 



IDNTTB: .WORD PHYIDN.PHYIDN .GENIDN . INTIDN. IDBIDN .CONIDN , VBUIDN 



ADUPTB: .WORD LNHDAT .LNHDAT .NUMB1 .NUM81 .NUHB1 .LNHDAT .NUMB1 



016767 031266 

016767 031262 

116767 030070 
000207 



004 



031252 
031246 
015152 



NUMB1: 
DATLTB 



SETLAS: 



SETLNH: 



.WORD 1 

.BYTE 1.2.4.8 



.•NUMBER OF BYTES IN BYTE. WORD .LONG QUAD 



.EVEN 

MOV 
MOV 
MOVB 
RTS 



EFFADk.LASADD 
EFFADR+2.LASADD-2 
CURADS.LASADS 
PC 



.•REMEMBER ADDRESS SPACE 



116702 
100002 
116702 
116267 
000207 



030057 

030054 
005306' 015140 



60$: 



'LNHDAT* GETS DATA LENGTH IN BYTES 

R2 GETS DATA LENGTH CODE 

NOTE: THIS ROUTINE MUST NOT CHANGE THE C BIT 
MOVB CURLNH.R2 ;R2 GETS DATA LENGTH CODE 
BPL 60$ ;BR IF CURRENT LENGTH IS VALID 

MOVB DEFLNH.R2 .-SUBSTITUTE DEFAULT LENGTH 
MOVB DATLTB(R2). LNHDAT ;SET 'LNHDAT* TO LENGTH OF DATA IN BYTES 
RTS PC 

.DSABL LSB 



ZZ-ESKAA-10.1 

V10-01-L 

MICRO-ASSISTED 



MICRO-ASSISTED EXAMINE/DEPOSIT ROUTINES 
MACRO V05.03 Friday 25-Apr-86 10:56 Page 28 
EXAMINE/DEPOSIT ROUTINES 



G 5 



20-MAY-1986 



Fiche 1 frame G5 



Sequence 58 



2887 








2888 








2889 








2890 








2891 








2892 


005360 


005002 




2893 


005362 


000402 




2894 


005364 


012702 


000001 


2895 


005370 


004767 


003530 


2896 


005374 


103001 




2897 


005376 


000207 




2898 


005400 


006002 




2899 








2900 


005402 


004767 


001730 


2901 


005406 


004767 


003204 


2902 


005412 


004067 


000024 


2903 


005416 


000440 




2904 








2905 


005420 


042767 


177760 


2906 


005426 


004067 


000010 


2907 


005432 


000442 




2908 








2909 


005434 


004067 


000002 


2910 


005440 


000444 




2911 








2912 








2913 


005442 






2914 








2715 








2916 








2917 


005442 


012000 




2918 


005444 


005726 




2919 


005446 


004767 


003452 


2920 


005452 


103476 




2921 


005454 


105767 


027732 


2922 


005460 


001401 




2923 


005462 


005200 




2924 


005464 


004767 


003242 


2925 


005470 


103467 




2926 


005472 


016700 


015022 


2927 


005476 


012702 


000061 


2928 


005502 


004767 


003250 


2929 


005506 


103460 




2930 


005510 


105767 


027676 


2931 


005514 


001411 




2932 


005516 


016700 


031040 


2933 


005522 


016701 


031036 


2934 


005526 


012702 


000062 


2935 


005532 


004767 


003220 


2936 


005536 


103444 




2937 


005540 


012700 


173020 


2938 


005544 


016^20 


031034 


2939 


005550 


016720 


031032 


2940 








2941 


005554 


052737 


000200 



PHEXDE: 

VIEXDE: 
5$: 



6$; 



LOADDE 



031156 GEEXDE; 



INEXDE; 



MICAST 



10$: 



20$: 



.SBTTL 

.ENABL 

. » » « t 

CLR 

BR 

MOV 

JSR 

BCC 

RTS 

ROR 
. • • t • 

JSR 
JSR 
JSR 
.WORD 

BIC 
JSR 
.WORD 

JSR 

.WORD 



MICRO-ASSISTED EXAMINE/DEPOSIT ROUTINES 
LSB 
NOTE -- EDIT-20 MADE MAJOR CHANGES HERE 



R2 
5$ 

fl.R2 
PC.TSTRUN 
6$ 
PC 
R2 
END OF EDIT-20 
PC.STCLMP 
PC.TSTTY2 
RO. MICAST 
CPHYSE 

#177760. EFFADR 
RO. MICAST 
CGREGE 

RO. MICAST 
CPREGE 



;SET UP TO INDICATE 'PHYSICAL* 

.-SET UP TO INDICATE 'VIRTUAL' 

;CHECK FOR CPU RUNNING 
;BR IF NOT 

.-SET C-BIT TO INDICATE PHYSICAL/VIRTUAL 



MEMORY MAPPING ENABLE GETS C BIT 
CLEAR CODE 2 MICRO-ERRORS 
CONTINUE IN COMMON MICRO-ASSISTED RTN 
MICRO-ADDRESS OF RTN TO USE 

CLEAR UNNEEDED ADDRESS BITS 

CONTINUE IN COMMON MICRO-ASSISTED RTN 

MICRO-ADDRESS OF RTN TO USE 

.•CONTINUE IN COMMON MICRO-ASSISTED RTN 
;MICR0-ADDRESS OF RTN TO USE 



ROUTINE TO PERFORM A MICRO-ASSISTED EXAMINE OR DEPOSIT 
CALLED BY JSR RO. MICAST 

MICRO-ROUTINE ADDRESS TRAILS THE CALL 

RETURN IS MADE TO 'DEEXPM' RTN(RTN ADDRESS AT 2(SP>) 



173014 



MOV (R0)*.R0 

TST (SP)* 

JSR PC.TSTRUN 

BCS 50$ 

TSTB DEEXBY 

BEQ 10$ 

INC RO 

JSR PC.PUSHU 

BCS 50$ 

MOV LNHCOD.RO 

MOV *T1.R2 

JSR PC.WRITID 

BCS 50$ 

TSTB DEEXBY 

BEQ 20$ 

MOV DATATO.RO 

MOV DATAT0*2.R1 

MOV #T2.R2 

JSR PC.URIT1D 

BCS 50$ 

MOV fTOIDLO.RO 

MOV EFFADR. (RO)* 

MOV EFFADR*2,iR0)* 

; N T E : R NOW POINTS TO 

BIS *RXDN£.3*RXDONE 



RO GETS MICRO-RTN ADDRESS 

REMOVE SAVED RO FROM STACK 

TEST FOR STAR CPU RUNNING 

BR IF STAR IS RUNNING 

TEST FOR EX OR DE 

BR IF EXAMINE 

ADD 1 TO GET ADDRESS OF DEPOSIT 

PUSH RO ON MICRO-STACK 

BR IF CLOCK STOPPED 

RO GETS CODE FOR DATA LENGTH 

R2 GETS ADDRESS OF ID REG Tl 

WRITE LENGTH CODE TO ID REG Tl 

BR IF ID BUS WRITE FAILED 

TEST FOR EX OR DE 

BR IF EXAMINE 

RO AND Rl GET DATA TO DEPOSIT 



RTN 



R2 GETS ADDRESS OF 
WRITE DEPOSIT DATA 
BR IF ID BUS WRITE 



POINT RO TO 
PUT ADDRESS 



•FMIDLO* 
;SET RXDONE 



TOID 



ID REG T2 
TO ID REG 
FAILED 
REG 



T2 



INTO -TOID 1 REG 



ZZ-ESKAA-10.1 


HICRO-ASSISTED 


V10-01-1 




MACRO V05.03 


HICRO-ASSISTED 


EXAMINE/DEPOSIT 


2942 


005562 


052714 


002000 


2943 


005566 


004767 


002126 


2944 


005572 


103426 




2945 


005574 


105767 


027612 


2946 


005600 


001011 




2947 


005602 


012702 


036542 


2948 


005606 


032767 


000001 


2949 


005614 


001401 




2950 


005616 


022222 




2951 


005620 


012022 




2952 


005622 


012022 




2953 


005624 


105767 


014664 


2954 


005630 


001005 




2955 


005632 


105767 


031123 


2956 


005636 


001004 




2957 


005640 


004767 


001536 


2958 


005644 


004767 


002106 


2959 


005650 


000207 




2960 








2961 









EXAMINE/DEPOSIT 
Friday 25-Apr-86 
ROUTINES 



ROUTINES 
10:56 Page 



H 5 



28-1 



20-HAY-1986 



Fiche 1 Frame H5 



Sequence 59 



030006 



30$ 
40$ 



45$ 
50$ 



BIS *MAINTR,(R4) 

JSR PC.CWAIT 

BCS 50$ 

TSTB DEEXBY 

BNE 40$ 

MOV #DATAFR.R2 

BIT fSECHLF.FLAG 

BEQ 30$ 

CMP <R2)*.(R2)* 

MOV (R0)*.(R2)+ 

MOV (R0)*.(R2)* 

TSTB LODFLG 

BNE 45$ 

TSTB XLOFLG 

BNE 50$ 

JSR PC.RESTMM 

JSR PC.TSTERR 

RTS PC 

.DSABL LSB 



POP MICRO-STACK TO UPC 

WAIT FOR FUNCTION TO COMPLETE 

BR IF TIMEOUT ON WAIT 

TEST FOR EX OR DE 

BR IF DEPOSIT 

POINT R2 TO RETURNED DATA AREA 

TEST FOR SECOND HALF OF QUAD EXAMINE 

BR IF NOT SECOND HALF OF QUAD 

POINT R2 TO DATAFR-4 

SAVE RETURNED DATA 

HERE FROM 'LOAD A FILE'? (EDIT-21) 
IF SO. DON'T RESTORE MME YET 

DOING X LOAD? 

BRANCH IF YFS 
RESTORE 'MME T (HEMORY MAPPING ENABLE) 
TEST FOR SUCCESS ON FUNCTION 
(C BIT SET BY TSTERR IF NOT SUCCESSFUL) 



ZZ-ESKA* 


t-10.1 


EXAMINE 


ID BUS 






I 5 

20- 


MAY-1986 Fiche 1 Frame 15 


Sequence 60 


VIO-Ol-l 




MACRO V05.03 Friday 25 


-Apr-86 


10:56 Paee 29 






EXAMINE 


ID BUS 
















2963 










.SBTTL 


EXAMINE ID BUS 






2964 


















2965 










.ENABL 


LSB 






2966 


















2967 


005652 






IDEXDE: 


.•EXAMINE OR DEPOSIT TO It 


) BUS SPACE 




2968 


005652 


012700 


036604' 




MOV 


#EPFADR.R0 


POINT RO TO ADDRESS 




2969 


005656 


042710 


177700 




BIC 


#177700. (Ro) 


TRUNCATE ADDRESS 




2970 


0Q5662 


012002 






MOV 


(R0>*.R2 


R2 GETS ADDRESS 




2971 


005664 


005010 






CLR 


(RO) 


CLEAR ADDRESS UPPER BITS 




2972 


005666 


012703 


036542' 




MOV 


#DATAFP.R3 


POINT R3 TO UOUPUT DATA AREA 




2973 


005672 


105767 


027514 




TSTB 


DEEXBY 


TEST FOR EXAMINE 




2974 


005676 


001026 






BNE 


20$ 


BR IF NOT EXAMINE 




2975 


005700 


032737 


O0C040 173032 




BIT 


#ClKSTD.a#MCfc 


•TEST FOR CLOCK STOPPED 




2976 


005706 


001414 






BEG 


10$ 


•BR IF CLOCK RUNNING 




2977 


005710 


012700 


173030 




MOV 


KIDCNTL.RQ 


•DO A STATIC ID BUS EXAMINE 




2978 


005714 


010210 






MOV 


R2.(RO) 


•ADDRESS TO IDCNTL REG 




2979 


005716 


052710 


000200 




BIS 


flDHANT.(RO) 


rSET 'ID MAINTENANCE' BIT 




2980 


005722 


013723 


173006 




MOV 


a#IDDATL.(R3>* .-GET ID DATA 




2981 


005726 


013713 


173010 




MOV 


8*IDDATH.<R3) 






2982 


005732 


042710 


000200 




BIC 


*IDMANT.(R0) 


;CLEAR 'ID MAINTENANCE" BIT 




2983 


005736 


000417 






BR 


30$ 






2984 


















2985 


005740 


004767 


003160 


10S: 


JSR 


PC.TSTRUN 


rTEST FCR STAR RUNNING 




2986 


005744 


103414 






BCS 


30$ 


;BR IF STAR IS RUNNING 




2987 


005746 


004767 


003070 




JSR 


PC.READID 


;READ ID BUS 




2988 


005752 


000411 






BR 


30$ 






2989 


















2990 


005754 


004767 


003144 


20$: 


JSR 


PC TSTRUN 


;TEST FOR STAR RUNNING 




2991 


005760 


103406 






BCS 


30$ 


;BR IF RUNNING 




2992 


005762 


016700 


030574 




MOV 


DATATO.RO 


;R0 ,R1 GET DATA TO URITE 




2993 


005766 


016701 


030572 




MOV 


DATA'0*2.R1 






2994 


005772 


004767 


002760 




JSR 


PC.HRITID 


;WRITE R0.R1 TO ID AS ADDRESSED BY R2 




2995 


005776 


000207 




30$: 


RTS 


PC 






2996 


















2997 










.DSABL 


LSB 







J 5 



ZZ-ESKA* 


1-10.1 


EXAMINE/DEPOSIT 


STAR P 


V10-01-L 




MACRO V05.03 Fi 


-iday 2 


EXAMINE/DEPOSIT 


STAR PC 






2999 










3000 










3001 


006000 








3002 










3003 










3004 










3005 


006000 


012700 


036604* 




3006 


006004 


012046 






3007 


006006 


012046 






3008 


006010 


005040 






3009 


006012 


012740 


000017 




3010 


P06016 


112767 


000002 


027376 


3011 


006024 


112767 


000002 


027367 


3012 


006032 


004767 


176764 




3013 


006036 


012667 


030544 




3014 


006042 


012667 


030536 




3015 


006046 


000207 







25-Apr-86 10:56 Page 30 



20-MAY-1986 



Ftche 1 Frame J5 



Sequence 61 



EXDEPC 



.SBTTL 

ROUTINE 
INPUTS: 

OUTPUTS: 
HOV 

MOV 

r.ov 

CLR 

MOV 

MOVB 

MOVB 

JSR 

MOV 

MOV 

RTS 



EXAMINE/DEPOSIT STAR PC 

TO EXAMINE OR DEPOSIT TO STAR PC 

IF<'DEEXBY'=0> THEN <EXAMINE PC> ELSE 



.-SAVE EFFADR 



(CONTENTS OF 'DATATO 
: 'DATAFR' CONTAINS PC 
/EFFADR. RO 
(R0)*.-(SP) 
(R0)*.-(SP) 
-<R0) 
*17.-(R0) 
fGENSPC.CURADS 
ILNGLNH.CURLNH 
PC.DEEXPM 
(SP)».EFFADR*2 



<DEPOSIT> 



ARE DEPOSIT DATA) 
CONTENTS IF EXAMINE 



CLEAR UPPER 
SET ADDRESS 
SET ADDRESS 



WORD OF 'EFFADR' 
TO 17(PC'S ADDRESS OF COURSE) 
SPACE TO GEN REG SPACE 
SET DATA LENGTH TO LONG WORD 
DO THE DEPOSIT EXAMINE PRIMITIVE 



(SP)*. EFFADR 
PC 



.•RESTORE ADDRESS 



ZZ-ESKAA-10.1 
V10-01-L 
VBUS EXAMINE 



VBUS EXAMINE 
MACRO V05.03 



K 5 



Friday 25-Apr-86 10:56 Page 31 



20-HAY-1986 



Fiche 1 Frame K5 



Sequence 62 



3017 








3018 








3019 








3020 








3021 


006050 






3022 








3023 








3024 








3025 








3026 


006050 


105767 


027336 


3027 


006054 


001043 




3028 


006056 


016702 


030522 


3029 


006062 


042702 


177770 


3030 


006066 


005003 




3031 


006070 


156203 


006166' 


3032 


006074 


000303 




3033 


006076 


012702 


000020 


3034 


006102 


012700 


036542* 


3035 


006106 


010267 


014404 


3036 


006112 


012704 


173036 


3037 


006116 


052714 


000002 


3038 


006122 


042714 


0OOG02 


3039 


006126 


012705 


000010 


3040 


006132 


005001 




3041 


006134 






3042 








3043 


006134 


030314 




3044 


006136 


001401 




3045 


006140 


000261 




3046 


006142 


006001 




3047 


006144 


052714 


000001 


3048 


006150 


005305 




3049 


006152 


003370 




3050 


006154 


000301 




3051 








3052 


006156 


110120 




3053 


006160 


005302 




3054 


006162 


003361 




3055 


006164 


000207 




3056 








3057 


006166 


001 


002 



3058 
3059 
3060 



006171 
006174 



010 
100 



.SBTTl VBUS EXAMINE 

.ENABL LSB 

VBEXDE: .-EXAMINE VBUS(NO DEPOSIT TO VBUS) 
: EFFADR=ADDRESS TO EXAMINE 

;OUTPUTS: DATAFR HOLDS 16 BYTES OF VBUS CHANNEL DATA 
'LNHDAT' HOLDS # OF BYTES EXAMINED 



EXUPCi 



10$: 
20$:; 

30$: 



020 
200 



004 
040 



40$: 
MASKS 



TSTB 

BNE 

MOV 

BIC 

CLR 

BISB 

SWAB 

MOV 

MOV 

MOV 

MOV 

BIS 

BIC 

MOV 

CLR 

CLC 

BIT 
BEQ 

SEC 

ROR 

BIS 

DEC 

BGT 

SUAB 

:CLC 

MOVB 

DEC 

BGT 

RTS 



DEEXBY 

40$ 

EFFADR.R2 

#177770. R2 

R3 

MASKS(R2).R3 

R3 

#20. R2 

#DATAFR.R0 

R2. LNHDAT 

#VBUSR.R4 

#VL0AD.(R4) 

#VL0AD.(R4) 

#8..R5 

Rl 



R3.(R4) 
30$ 

Rl 

#VCLK,(R4) 

R5 

20$ 

Rl 



Rl.(RO)* 
R2 
10$ 
PC 



TEST FOR DEPOSIT 

BR IF DEPOSIT 

R2 GETS ADDRESS TO EXAMINE 

TRUNCATE ADDRESS TO 3 BITS 

R3 GETS CHANNEL MASK 

MASK GOES TO UPPER BYTE OF R3 

R2 GETS LENGTH OF LARGEST CHANNEL(BYTES) 

POINT RO TO OUTPUT AREA 

SAVE LENGTH OF CHANNEL FOP REPORTER 

POINT R4 TO VBUS CONTROL REGISTER 

LOAD THE VBUS FLOPS 

DEASSERT THE LOAD SIGNAL 

SET R5 TO COUNT FOR 1 BYTE 

CLC NOT NEEDED SINCE 'CLR' CLEARS 
AND 'ROR' CLEARS 

TEST FOR A ONE IN THIS BIT OF CHANNEL 
BR IF THIS BIT IS A ZERO 

Rl GETS C BIT SHIFTED IN 

SHIFT THE VBUS ONE PLACE 

REDUCE SHIFT COUNT BY ONE 

BR IF ONE BYTE NOT SHIFTED YET 

MOVE DATA BYTE TO LOWER BYTE OF Rl 

.-SAVE THE BYTE 

;REDUCE CHANNEL LENGTH COUNTER BY ONE 

;BR IF MORE BYTES TO GET 



.BYTE 1.2.4.10.20.40.100.200 ;VBUS CHANNEL MASKS 



.EVEN 
.DSABL 



.-JUST 
LSB 



IN CASE 



ZZ-ESKAA-10.1 
V10-Q1-L 
VBUS EXAMINE 



VBUS EXAMINE 
MACRO VD5.03 



L 5 



Friday 25-Apr-86 10:56 Page 32 



20-MAY-1986 



Fiche 1 Frane L5 



Sequence 63 



3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 



006176 



COEXDEi 



006176 
006202 
006206 
006212 
006"16 
006220 
006224 
006226 
006230 
006234 
006236 
006240 
006242 
006244 
006246 



016701 
012702 
016703 
022703 
101412 
105767 
001403 
010302 
012703 
112322 
005301 
003375 
005727 
000261 
000207 



014314 
036542' 
030372 
040000 

027U6 



036562' 



10$: 



20$: 



.ENABL LSB 

EXAMINE OR DEPOSIT TO CONSOLE'S OWN ADDRESS SPACE 
NOTE: ALL XFERS ARE DONE ONE BYTE AT A TIME TO AVOID ODD 
ADDRESS TRAPS 

COMPLETION CODE: 

C BIT CLEAR IF EX/DE OK 

C BIT SET IF NON EXISTANT MEMORY 

Rl GETS LENGTH OF XFER IN BYTES 

ASSUME EXAMINE. POINT R2 TO DATA OUTPUT AREA 

R3 GETS ADDRESS TO EXAMINE 

ADDRESS IN RANGE? 

BRANCH IF NO 

CHECK FOR EX OR DE 

BR IF EXAMINE 

REARRANGE POINTER FOR DEPOSIT 

R3 POINTS TO DATA TO DEPOSIT 

XFER A BYTE EITHER HAY 

REDUCE XFER COUNTER BY ONE 

BR IF MORE TO XFER 

CLEAR C BIT 

ERROR RETURN 



MOV 


LNHDAT.R1 


MOV 


#DATAFR.~2 


MOV 


EFFADR.R3 


CMP 


IMEMSIZ.R3 


BLOS 


20$ 


TSTB 


DEEXBY 


BEQ 


10$ 


MOV 


R3.R2 


MOV 


I0ATAT0.R3 


MOVB 


(R3)*.(R2)* 


DEC 


Rl 


BGT 


10$ 


TST 


(PC)* 


SEC 




RTS 


PC 


.DSABL 


LSB 



ZZ-ESKAA-10.1 EXAMINE INSTRUCTION REGISTER(IR) 
V10-Q1-L MACRO V05.03 Friday 25-Apr-86 10:56 
EXAMINE INSTRUCTION REGISTERUR) 



M 5 



Page 33 



20-MAY-1986 



Fiche 1 Frame M5 



Sequence 64 



3089 








3090 








3091 








3092 








3093 


006250 






3094 








3095 








3096 








3097 








3098 








3099 








3100 








3101 








3102 


006250 






3103 


006256 


012767 


000003 


3104 


006264 


004767 


177566 


3105 


006270 


116703 


030252 


3106 


006274 


004767 


000052 


3107 


006300 


116700 


030243 


3108 


006314 


004767 


000042 


3109 


006310 


116700 


030241 


31 iw 


006314 


006200 




3111 


006316 


006200 




3112 


006320 


006200 




3113 


006322 


006200 




3114 


006324 


042700 


177770 


3115 


006330 


110067 


014212 


3116 


006334 


012746 


022546' 


3117 


006340 


012746 


000001 


3118 


0062 44 


004767 


002066 


3119 


006350 


000207 




3120 








3121 


006352 


005001 




3122 


006354 


012746 


000010 


3123 


006360 


006200 




3124 


006362 


006101 




3125 


006364 


005316 




3126 


006366 


003374 




3127 


006370 


005726 




3128 


006372 


010100 




3129 


006374 


004767 


177730 


3130 


006400 






3131 


006406 


000207 




3132 








3133 








3134 


006410 


105067 


027557 


3135 


006414 


000207 





DOIR 



030320 



.SBTTL EXAMINE INSTRUCTION REGISTERUR) 

.ENABL LSB 

READ OP-CODE. SPECIFIER. AND EXECUTION POINT COUNTER 

AND DISPLAY IN THAT ORDER 

VBUS CHANNNEL 3 IS READ AND THE APPROPRIATE FIELDS ARE 

EXTRACTED AND DISPLAYED. THIS RTN WORKS HITH CLOCK ON OR OFF. 

NOTE THAT OP-CODE AND SPECIFIER ARE 'BACKWARDS' WHEN READ 

AND THE BITS MUST BE REVERSED BEFORE DISPLAYING 

INPUTS: R1=0 

OUTPUTS: NONE 

TYPE IDENT STRING 

SET ADDRESS TO 3 

READ VBUS CHANNEL 3 TO 'DATAFR' 

GET OP-CODE BYTE 

REVERSE BITS IN LOWER BYTE OF RO AND PRINT 

GET SPECIFIER BYTE 

REVERSE BYTE THEN PRINT 

GET EXECUTION POINT COUNTER 

3 BITS WE WANT ARE 4 AWAY FROM RIGHT END 



CLEAR ALL EXCEPT 3 BITS WE WANT 
SAVE THE BYTE TO PRINT 
STACK ADDRESS OF BYTE 
STACK LENGTH OF DATA 
CONVERT BYTE AND PRINT 



REVERSE AND PRINT THE BYTE IN RO 

COUNT FOR 8 SHIFTS 

BIT OF RO TO C BIT 

Rl GETS THE C BIT 

BUMP COUNT 

BR IF MORE SHIFTS 

CLEAR STACK 

GET REVERSED BYTE TO RO 

PRINT BYTE IN RO 

TYPE 2 SPACES 





TYPEMES 


#IRIDN..CR 




MOV 


#3.EFFADR 




JSR 


PC.EXUPC 




MCVB 


DATAFR-4.R0 




JSR 


PC. 20$ 




MOVB 


DATAFR-5.R0 




JSR 


PC. 20$ : 




MOVB 


DATAFR-U..R0 




ASR 


RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 




BIC 


#177770. RO 


10$: 


MOVB 


RO.FILENM : 




MOV 


fFILENM.-(SP) ; 




MOV 


#1.-(SP) 




JSR 


pc.c:;typ 




RTS 


PC 


20$: 


CLR 


Rl 




MOV 


#8..-(SP) ; 


30$: 


ASR 


RO ; 




ROL 


Rl 




DEC 


(SP) 




BGT 


30$ 




TST 


( SP ) ♦ 




MOV 


R1.R0 




JSR 


PC. 10$ ; 




TYPEMES 


#TWOSPC ; 




RTS 


PC 



.DSABL LSB 
DOENDX: CLRB NODRV1 
RTS PC 



.-CLEAR THE 'NO DRIVE 1' FLAG 



ZZ-ESKAA-10.1 SHOW CONSOLE STATE 
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SHOW CONSOLE STATE 



N 5 



20-HAY-1986 



Fiche 1 Frame N5 



Sequence 65 



3137 








3138 








3139 








3140 








3141 


006416 






3142 








3143 








3144 


006416 






3145 


006424 


012746 


021262* 


3146 


006430 


105715 




3147 


006432 


100002 




3148 


006434 


012716 


021272' 


3149 


006440 






3150 


006442 






3151 


C06450 


012746 


021314' 


3152 


006454 


032714 


000100 


3153 


006460 


001402 




3154 


006462 


012716 


021310' 


3155 


006466 






3156 


006470 






3157 


006476 


012746 


021331' 


3158 


006502 


005713 




3159 


006504 


100414 




3160 


006506 


012716 


021336' 


3161 


006512 


032714 


C00002 


3162 


006516 


001007 




3143 


006520 


012716 


021342' 


3164 


006524 


032714 


000004 


3165 


006530 


001002 




3166 


006532 


012716 


021347* 


3167 


006536 






3168 


006540 






3169 


006546 


012746 


021364' 


3170 


006552 


032714 


000030 


3171 


006556 


001407 




3172 


006560 


012716 


021376' 


3173 


006564 


032714 


000010 


3174 


006570 


001402 




3175 


006572 


012716 


021371' 


3176 


006576 






3177 


006600 






3178 


006606 


012746 


021403' 


3179 


006612 


105767 


026605 


3180 


006616 


001002 




3181 


006620 


012716 


021407* 


3182 


006624 






3183 


006626 






3184 


006634 


116700 


026565 


3185 


006640 


006300 




3186 


006642 






3187 


006650 






3188 


006656 


116700 


026542 


3189 


006662 


006300 




3190 


006664 






3191 


006672 







DOSHOH: 



10$ 



20$: 



30$: 



40$ 



50$: 



.SBTTL SHOW CONSOLE STATE 



.ENABL 


LSB 


jDISPLAl 


' DEFAULTS. CPU 


;R3-->'FLAG* 


;R4— >MCR 


TYPEMES 


#CPUIS..CR 


MOV 


#RUNNIN.-(SP) 


TSTB 


(R5) 


BPL 


10$ 


MOV 


#HLTED.(SP) 


TYPEMES 




TYPEMES 


#SOMMIS 


MOV 


*ISCLR.-CSP> 


BIT 


#S0MMB,(R4) 


BEQ 


20$ 


MOV 


#ISSET.(SP) 


TYPEMES 




TYPEMES 


#STPEQU 


MOV 


ISTINST.-(SP) 


TST 


(R3) 


BMI 


30$ 


MOV 


#STBUS.(SP) 


BIT 


#SBC.(R4) 


BNE 


30$ 


MOV 


#STSTA.(SP) 


BIT 


#STS.(R4) 


BNE 


30$ 


MOV 


*NRMALL.(SP) 


TYPEMES 




TYPEMES 


#CLKEQU 


MOV 


#CLKNOR.-(SP) 


BIT 


#FREQ0!FREQ1. 


BEQ 


40$ 


MOV 


#CLKSLO.(SP) 


BIT 


#FREQ0.(R4> 


BEQ 


40$ 


MOV 


#CLK.FAS.(SP> 


TYPEMES 




TYPEMES 


#RADEQU..CR 


MOV 


#ORADIX. (SP) 


TSTB 


DEFRAD 


BNE 


50$ 


MOV 


#0HEX.(SP) 


TYPEMES 




TYPEMES 


fADDEQU 


MOVB 


DEFADS.RO 


ASL 


RO 


TYPEMES 


RADLST(RO) 


TYPEMFS 


#DATEQU 


f'OVB 


DEFLNH.RO 


ASL 


RO 


TYPEMES 


DATLST(RO) 


TYPEMES 


#FILLEQ 



STATE. STEP MODE, CLOCK MODE. FILL 



TYPE *CPU * 
ASSUME RUNNING STATE 
TEST FOR RUN OR HALT 
BR IF RUNNING 
CHANGE TO HALTED 
TYPE 'RUNNING' OR 'HALTED* 
TYPE '.SOMM IS ' 
ASSUME CLEAR 
TEST STATE OF SOMM 
BR IF CLEAR 
CHANGE TO SET 
TYPE 'SET* OR 'CLEAR* 
TYPE \STEP = * 
ASSUME INSTRUCTION STEP 
TEST FOR SINGLE INST STEP 
BR IF SING INST STEP 
ASSUME BUS CYCLE STEP 
TEST FOR BUS CYCLE STEP 
BR IF BUS CYCLE 
ASSUME STATE STEP 
TEST FOR STATE STEP 
BR IF STATE STEP 
CHANGE TO NORMAL 

TYPE 'NONE'. 'STAT*. 'BUS*. OR 'INST 
TYPE *,,CLK=' 
ASSUME'NORMAL FREQUENCY 
(R4) .-TEST FOR NORMAL FREO 
BR IF NORMAL FREQ 
ASSUME SLOW 
TEST FOR SLOW 
BR IF SLOW 
ASSUME FAST 

TYPE 'NORM*. 'SLOW. 'FAST' 
TYPE <CRLFxTAB>RAD = 
ASSUME OCTAL 
TEST FOR OCTAL 
BR IF OCTAL 
CHANGE TO HEX 
TYPE 'HEX' OR 'OCT' 
TYPE '.ADD=* 

GET DEFAULT ADDRESS SPACE TO RO 
TIMES 2 

TYPE •GEN','CONS\'INT','VIRT\'FHYS 
TYPE '.DAT=' 
RO GETS CODE FOR DATA LENGTH 



V'BUS' . MDBU' 



.-TYPE 'BYTE', 'HURD 
.-TYPE ',F1LL = ' 



'LONG* .'QUAD' 















B 6 


ZZ-ESKAA-10-1 


SHOW CONSOLE STATE 






20-HAT-1986 Fiche 1 Fraae B6 Seam 


V10-01-L 


HACRO V05.03 Friday 25 


-Apr-86 


10:56 Pase 34-1 


SHOW COHSOLE STATE 










3192 


006780 


012746 


035547* 




MOV 


HTERFIL.-(SP) .-CONVERT 'TERFIL* TO ASCII STRING 


3193 


006704 


012746 


000001 




nov 


#1.-(SP) .-TERFIL IS 1 BYTES LONG 


3194 


08671b 


0C4767 


001522 




JSR 


PC.CVNTYP .-GO CONVERT AND TYPE THE STRING 


3195 


006714 








TYPEMES 


fRELEQU .-TYPE *.REL=* 


3196 


006722 


012746 


022522' 




HOV 


#RELOCA.-(SP) ;CONVERT CONTENTS OF RELOCATION REGISTER 


3197 


006726 


012746 


000004 




nov 


#4. (SP) ,-RELOC REG IS 4 BYTES LONG 


3198 


006732 


004767 


901500 




JSR 


PC.CVNTYP ;CONVERT AND TYPE IT 


3199 


006736 


000207 






RTS 


Pi 


3200 














3201 


006740 
0C6746 
006754 


021413' 
021431' 
021447* 


021420' 021425* 
021435* 021442* 


RADLST: 


.WORD 


SPHY.SVIR.SGEM.S INT. SIDB. SCON ,SVBU 


3202 


006756 
006764 


021513* 
021532* 


021520' 021525' 


DATLST: 


.WORD 


DBYT.DHRD.DLNG ~QAD 


3203 














3204 










.DSABL 


LSB 



ZZ-ESKAA-10.1 
VIO-Ol-L 



SHOW VERSION INFO 
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SHOW VERSION INFO 



C 6 



20-MAY-1986 



Fiche 1 Fraae C6 



Sequence 67 



3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 



006766 



006766 
006774 
007000 
0070U4 
007012 
007016 
007022 
007030 
007034 
007040 
007046 
007052 
007056 
007064 
007072 
0071GO 
007102 
007110 



007110 
007112 



007112 
007114 
007120 
007171 
0071^0 
007132 



007134 
007134 



012700 
004767 

012700 
004767 

012700 
004767 

012700 
004767 



122767 
001003 



000207 



010046 
012746 
012746 
004767 

000207 



DOSHVR: 



037752 
000106 

037753 
000070 

03/754 
000052 

037755 
000034 



000001 037744' 



10$: 



OUTASC 



000001 
000020 
140022 



.SBTTL SHOW VERSION INFO 



DISPLAY 
INPUTS: 



VERSION OF PCS.WCS.FPLA. AND CONSOLE SOFTWARE 



OUTPUTS: 
EFFECTS: 



'PCSVER' = PCS VERSION t 

VPHVER' = HCS PRIMARY VERSION t 

'USCVER' = HCS SECONDARY VERSION 

'FLPVER' = FPLA VERSION * 



NONE 
VERSION 



TYPEHES 

MOV 

JSR 

TYPEHES 

NOV 

JSR 

TYPEHES 

NOV 

JSR 

TYPEHES 

MOV 

JSR 

TYPEHES 

TYPEHES 

CHPB 

BNE 

TYPEHES 



#PCSEQ.U..CR 

*PCSVER.R0 

PC. OUTASC 

fUCSEQU 

fWPMVER.RO 

PC, OUTASC 

fDASH 

fWSCVER.RO 

PC. OUTASC 

fFPLEQU 

#FPLVER.R0 

PC. OUTASC 

fCONEQAJ 

fCONVER 

fGHOPT.MICOPT 

10$ 

#GHMES 



INFO DISPLAYED ON TERMINAL 

TYPE'PCS=* 

RO GETS PCS VERSION PNTR 

OUTPUT PCS VERSION 

TYPE 'HCS=' 

RO GETS HCS PRIM VER PNTR 

OUTPUT HCS PRIM VER 

TYPE *-' 

RO GETS PNTR TO HCS SECONDARY VER 

OUTPUT HCS SEC VER 

TYPE 'FPLA=' 

RO GETS PNTR TO FPLA VER 

OUTPUT FPLA VERSION 

TYPE 'sp«esCON=' 

TYPE CONSOLE VER t 

G t H FLOATING PRESENT? 

BRANCH IF NO 

TYPE 'G8H PRESENT' 



;TYPEMES 



RTS 



PC 



#SPEC1..CR ;SHOH THAT THIS IS A PRE-RELEASED VERSION 
;G8H PRESENT TYPEOUT HAS BEEN COHMENTED OUT TO 
.-MAKE ROOM FOR THIS COHMENT. RESTORE HHEN HE 
.•RELEASE THIS CONSOLE. 



.•SUBROUTINE TO CONVERT A BYTE TO HEX ASCII AND PRINT IT 
.•INPUTS: RO IS POINTER TO BYTE TO CONVERT 

STACK POINTER TO BYTE 
STACK LENGTH IN BYTES 
STACK RADIX 

CONVERT TO ASCII STRING 
TYPE STRING WHOSE POINTER 



MOV 


RO.-(SP) 


MOV 


#1 ,-(SP) 


MOV 


#16..-(SP) 


JSR 


PC.CONVRT 


TYPEMES 




RTS 


PC 



IS ON STACK 



000177 140100* 



DOREBO: .-REBOOT CONSOLE 
JMP aREBCON 



.•REBOOT CONSOLE. BUT NOT STAR 



ZZ-ESKAA-10.1 
V10-01-L 
SET DEFAULTS 

3257 
3258 
3259 
3260 

3261 007140 

3262 007140 

3263 007144 

3265 007150 

3266 007154 

3267 007160 

3268 007162 

3269 007164 

3270 007166 

3271 007170 
3272 

3273 007172 

3274 007174 

3275 007176 

3276 007200 
3277 

3278 007202 

3279 007204 

3280 007206 
3281 

3282 



SET DEFAULTS 
MACRO V05.03 



D 6 



Friday 25-Apr-86 10:56 Page 36 



20-MAY-1986 



Fiche 1 Fraae D6 



Sequence 68 



.SBTTL SET DEFAULTS 
.ENABL LSB 



012701 
012700 
012702 
105767 
001004 
105021 
110221 
105021 
000406 

122021 
001402 
114041 
000774 

005302 
002372 

000207 



035423* 
035420' 
000002 
013330 



DOSTDF. .-SET DEFAULTS 





MOV 


fDEFRAD.Rl 




MOV 


iCURRAD.RO 




MOV 


#LNGLNH.R2 




TSTB 


TMPRAD 




BNE 


20$ 




CLRB 


(Rl)* 




MOVB 


R2.CR1)* 




CLRB 


(Rl)* 




BR 


40$ 


20$: 


CMPB 


(R0)*.(R1)* 




BEQ 


30$ 




MOVB 


-(RO).-(Rl) 




BR 


20$ 


30$: 


DEC 


R2 




B6E 


20$ 


40$: 


RTS 


PC 



POINT Rl TO DEFAULTS 

POINT RO TO CURRENTS 

R2 USED FOR COUNTER OR CONSTANT 

TEST FOR SET 'STANDARD* DEFAULTS 

BR IF NOT TO SET STANDARDS 

SET DEFAULTS TO STANDARD SETTINGS 

SET LENGTH TO LONG WORD 

SET ADDRESS SPACE TO PHYSICAL 



.•COMPARE CURRENT SETTING AGAINST DEFAULT 

:BR IF THEY ARE THE SAME 

.-SET DEFAULT TO CURRENT 

;DO SAME BYTE AGAIN TO UPDATE RO AND Rl 



.•CHECKED ALL THREE YET 
:BR IF NOT 



.DSABL LSB 



ZZ-ESKAA-10.1 LOAD MICRO-DIAGNOSTIC MONITOR OR MICRO-DEBUGGER 
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LOAD MICRO-DIAGNOSTIC MONITOR OR MICRO-DEBUGGER 



E 6 



20-MAY-1986 



Fiche 1 Frame E6 



Sequence 69 



3285 






3286 






3287 






3288 


007210 




3289 






3290 


007210 


004712 


3291 


007212 


103435 


3292 


007214 


004267 


3293 


007220 


051253 


3294 


007222 


051646 


3295 


007224 


075273 


3296 






3297 


007226 




3298 


007226 


004267 


3299 


007232 


110113 


3300 


007234 


051646 


3301 


007236 


075273 


3302 






3303 


007240 




3304 


007240 




3305 


007250 


103017 


3306 


007252 


000207 


3307 






3308 


007254 




3309 


007254 


012701 


3310 


007260 


012221 


3311 


007262 


012221 


3312 


007264 


012221 


3313 


007266 




3314 


007274 


103005 


3315 


007276 


012600 


3316 


007300 


004767 


3317 


007304 


005726 


3318 


007306 


000207 


3319 






3320 


007310 


105267 


3321 


007314 


042767 


3322 


007322 


000167 


3323 






3324 







.SBTTL LOAD MICRO-DIAGNOSTIC MONITOR OR MICRO-DEBUGCER 
.ENABL LSB 



000034 



DOTEST: .-LOAD MICRO-DIAGNOSTIC MONITOR 
;R2-->TSTRUN 
JSR PC.(R2) 
BCS 10$ 
JSR R2.C0ML0D 
.RAD50 \MIC\ 
.RAD50 \M0N\ 
.RAD50 \SYS\ 



TEST FOR CPU RUNNING 
BR IF RUNNING 
CALL COMMON LOADER 
FILE NAME OF LOAD FILE 



000022 



022546' 



DOHCS: ;LOAD MICRO-DEBUGGER 
JSR R2.C0ML0D 
.RAD50 \HCS\ 
.RAD50 \M0N\ 
.RAD50 \SYS\ 

DOOVER: .-LOAD AN OVERLAY 
OPENS fFILENM 
BCC 30$ 
RTS PC 

COHLOD: .-COMMON OVERLAY LOADER 



004314 



027447 
004000 

140042 



026300 



10$: 
30$: 



MOV 


JFILENM.R1 


MOV 


<R2>*.(R1>* 


MOV 


(R2)*.(R1)* 


MOV 


(R2)*.(RD* 


F$OPEN 


#FILENM 


BCC 


30$ 


MOV 


(SPW.RO 


JSR 


PC.TPERRM 


TST 


(SP>* 


RTS 


PC 


INCB 


NOCNSL ; 


BIC 


#WCSPRES.FLAG 


JMP 


LODMIC 



;CALL COMMON LOADER 
.-FILE NAME FOR THIS LOAD 



;TRY TC OPEN FILE 

:BR IF OPEN SUCCESSFUL 



.-POINT Rl TO FILENAME BLOCK 



OPEN THE FILE 
BR IF OPEN SUCCESSFUL 
RO GETS ERROR CODE 
TYPE ERROR MESSAGE 



INDICATE CONSOL.SYS OVERLAID. 

MARK THAT HCS MUST BE RELOADED 
XFER CONTROL TO OVERLAY LOADER 



.DSABL LSB 
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F 6 



2C-MAY-1986 



Fiche 1 Frame F6 



Sequence 70 



3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 



.SBTTL WAIT FOR DONE.SET/CLR MEMORY MAPPING ENABLE 
.ENABL LSB 



007326 

007326 
007332 

007336 



007336 
007340 
007344 
007350 
007352 
007354 
007356 
007362 
007366 
007372 
007374 
007376 
007400 

007402 



007402 
007404 
007410 



052713 
000167 



000100 
023520 



DOUAIT: .-ENABLE A 'WAIT FOR DONE' 
:R3-->'FLAG' 
BIS *UFD0NE.(R3) 



JMP 



CLRRPT 



.•CLEAR 'RPTFLG' THEN RETURN 



STCLMP 



010046 
016700 
042700 
005500 
010146 
010246 
016701 
012702 
004767 
017602 
012601 
012600 
000207 



027250 
000001 



027234 
000022 
001414 



ROUTINE TO SET OR CLEAR MEMORY HAPPING ENABLE IN 'TBUFO'UD 12) 
INPUTS: C BIT IN SAME STATE AS MEMORY MAPPING BIT IS TO BE 
OUTPUTS: IF<C BIT CLEAR ON ENTRY> THEN < MEMORY MAPPING DISABLED> 
IF<C BIT SET ON ENTRY> THEN < MEMORY MAPPING ENABLED> 
RO.-(SP) 

.-GET SAVED CONTENTS OF TBUFO(LSB'S) 
;CLEAR BIT 



10$: 



.-GET SAVED CONTENTS OF TBUFO(MSB'S) 
;R2 GETS ID ADDRESS OF TBUFO 
.-WRITE R0.R1 TO TBUFO 



RESTMM: 



010046 
016700 
000760 



027204 



MOV 

MOV TBFOSV.RO 

BIC il.RO 

ADC RO 

MOV Rl.-(SP) 

MOV R2.-(SP) 

MOV TBF0SV*2.R1 

MOV #TBUF0.R2 

JSR PC.HRID12 

MOV (SP)*.R2 

MOV (SP)*.R1 

MOV <SP)*.R0 

RTS PC 

RESTORE MEMORY MAPPING ENABLE IN ID ADDRESS 12(HEX) 

INPUTS: STATE OF MME SAVED IN 'TBFOSV 

OUTPUTS: NONE 

EFFECTS: SAVED CONTENTS OF 'TBUFO' (ID 12) ARE REWRITTEN TO 
•TBUFO' 
MOV RO.-(SP) 

MOV TBFOSV.RO ;R0 GETS SAVED TBUFO CONTENTS(LSB 'S) 
BR 10$ 

.DSABL LSB 



ZZ-ESKAA-10.1 CLOCK TICK REPORTING 
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CLOCK TICK REPORTING 



6 6 



20-HAY-1986 



Fiche 1 Frame G6 



Sequence 71 



3364 








3365 








3366 


007412 






3367 








3368 








3369 








3370 








3371 








3372 








3373 


007412 


004077 


140054' 


3374 


007416 


052713 


040000 


3375 


007422 


004767 


000766 


3376 


007426 


112767 


000060 012212 


3377 


007434 


012701 


173036 


3378 


007440 


111102 




3379 


007442 


100404 




3380 


007444 


105267 


012176 


3381 


007450 


106302 




3382 


007452 


000773 




3383 








3384 


007454 






3385 


007462 


105711 




3386 


007464 


100024 




3387 


007466 






3388 


007474 


005067 


027104 


3389 


007500 


004767 


176352 


3390 


007504 


042767 


160000 027030 


3391 


007512 


012746 


036542' 


3392 


007516 


012746 


000002 


3393 


007522 


012746 


000020 


3394 


007526 


004767 


140022' 


3395 


007532 






3396 


007534 


000573 




3397 








3398 


007536 


032711 


000020 


3399 


007542 


001570 




3400 


007544 


012700 


173030 


3401 


007550 


012710 


000026 


3402 


007554 


052710 


000200 


3403 


007560 


005067 


026756 


3404 


007564 


013767 


173006 026750 


3405 


007572 


042767 


177000 026742 


3406 


007600 


042710 


000200 


3407 


007604 






3408 


007612 


000737 





TYPTIC: 



5$ 



10$: 



20$; 



30$: 



.SBTTL CLOCK TICK REPORTING 

ROUTINE TO REPORT CURRENT STATE OF STAR CLOCK 

INPUTS: R3-->'FLAG* 

OUTPUTS: NONE 

EFFECTS: TYPE 'CPTO. 1.2. 3* ON CONSOLE PRINTER 
IF<CPTO> THEN <UPC ALSO REPORTED) 
IF<CPT3> THEN ACCELERATOR PC PRINTED) 
PROGRAM I/O MODE CONDITIONALLY CLEARED 



JSR 

BIS 

JSR 

MOVB 

MOV 

MOVB 

BMI 

INCB 

ASLB 

BR 

TYPEMES 

TSTB 

BPL 

TYPEMES 

CLR 

JSR 

BIC 

MOV 

MOV 

MOV 

JSR 

TYPEMES 

BR 

BIT 

PEQ 

MOV 

MOV 

BIS 

CLR 

MOV 

BIC 

BIC 

TYPEMES 

BR 



RO.aRSAVEP 

#IGN0RE.(R3) 

PC.EXTPIO 

#'0.CPTN-5 

#VBUSR.R1 

(RD.R2 

10$ 

CPTN*5 

R2 

5$ 

#CPTN..CR 

(Rl) 

30$ 

#UPCEQU 

EFFADR 

PC.EXUPC 

#160000. DATAFR 

/DATAFR, -(SP) 

#2.-(SP) 

#16. .-(SP) 

PC.CONVRT 

REPLAC 

#CPT3.(R1 ) 

REPLAC 

IIDCNTL.RO 

#ID16.(R0) 

#IDMANT.(R0) 

DATAFR 

3/IDDATL. DATAFR 

#177000. DATAFR 

#IDMA;n ,(P0) 

IAPCEQU 

20$ 



SAVE R0-R5. R3<-- POINTER TO 'FLAG' 

INHIBIT THE CLOCK OFF MESSAGE 

CHECK FOR PROGRAM I/O EXIT 

MAKE MESSAGE *CPT0' INITIALLY 

POINT Rl TO VBUS REGISTER 

R2 GETS CLOCK STATE BITS 

BR IF CPTO 

INCREMENT THE CLOCK TICK NUMBER IN MESSAGE 



TYPE 'CPTO. 1.2. OR 3' 

CPTO? 

BR IF NO 

TYPE \UPC=* 

GET UPC FROM VBUS CHANNEL 

READ VBUS CHANNEL 

UPC IS IN LOHER 13 OF DATAFR 

CONVERT 'DATAFR 

S T ACK LENGTH IN 

FORCE THE RADIX 



CONTENTS 
BYTES 
TO HEX 



TO AN ASCII STRING 



TYPE THE UPC STRING 



;CPT3? 

;BR IF NOT 

;R0 POINTS TO ID CoNTROL REG 

.-SET ID ADDRESS 

.-SET THE ID MAINT BIT 



:GET ACCELARATOR PC 
CLEAR ALL EXCEPT 9 

:TYPE 'APC=' 



BITS(PX-03-00) 



H 6 



ZZ-ESKAA- 
V10-01-L 
CHECK FOR 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 



10.1 CHECK FOR CLOCK STOP. WAIT FOR MICRO-RESPONSE 
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CLOCK STOP. WAIT FOR MICRO-RESPONSE 



20-MAY-1986 



Fiche 1 Frame H6 



Sequence 72 



007614 



007614 
007616 
007622 
007626 
007630 
007636 
007640 
007646 
007654 
007660 
007666 
007672 
007674 
007700 

007702 
007710 
007712 
007714 
007716 



007720 



007720 
007722 
007724 
007730 
007734 
007736 
007740 



007742 
007750 
007754 



010446 
012704 
032714 
001425 
032767 
001024 



004767 



042767 
005727 
000261 
012604 
000207 



010446 
005004 
105067 
105737 
100765 
005204 
001373 



105267 
000756 



TSTCLK: 



032714 

001007 

004767 174456 

000404 



173032 
000040 

040000 025764 



177532 
000006 



040000 025712 



10$ 
20$ 
30$ 



CWAIT 



025667 
173034 



40$: 



025643 



?BTTL CHECK FOR CLOCK STOP. WAIT FOR MICKO-RESPONSE 



.ENABL LSB 



.•ROUTINE 
.♦INPUTS: 
;OUTPUTS 



MOV 

MOV 

BIT 

BEQ 

BIT 

BNE 

TYPEMES 

TYPEMES 

JSR 

TYPEMEf 

BIT 

BNE 

JSR 

BR 

BIC 
TST 
SEC 
MOV 
RTS 



TO CHECK FOR 
NONE 
C BIT 
(PX010 
C BIT 

R4.-(SP) 

#MCR.R4 

#CLKSTD.(R4) 

10$ 

lIGNORE.Fl.AG 

20$ 

ITAB..CR 

fCLOCKS 

PC.TYPTIC 

1CRMES 

fSTS!SBC.(R4) 

30$ 

PC.DOSSTB 

30$ 

HGNORE.FLAG 
(PC)* 

(SP)*.R4 
PC 



CLOCK STOPPED 

SET IF CLOCK STOP DETECTED AND SINGLE BUS CYCLE ENABLED 
1-ONLY SET BUS CYCLE IF 'STS' OR 'SBC NOT ASSERTED) 
CLEAR IF NO CLOCK STOP DETECTED. CLOCK MODE UNCHANGED 



BR IF CLOCK RUNNING 
CLOCK IS STOPPED. SEE IF 
BR IF ALREADY REPORTED 
TYPE <CRLFxTAB> 
TYPE 'CPU CLOCK STOPPED' 
TYPE THE CLOCK STATE 



CLOCK ALREADY IN A STEP MODE? 

BR TO EXTT IF YES 

SET CLOCk TO BUS CYCLE MODE 



WE ALREADY REPORTED IT 



.•ALLOW FUTURE CLOCK STOPS TO BE REPORTED 



ROUTINE TO WAI 
IF<CONSOLE ACK 
THEN<REPORT TI 



MOV 

CLR 

CLRB 

TSTB 

BMI 

INC 

BNE 



TYPEMES 

INCB 

BR 



R4.-CSP 

R4 

TIMOUT 

a#MCS 

20$ 

R4 

40$ 

;TIMED- 

;£ITHER 

fTMEOUT 

TIMOUT 

30$ 



T FOR A 'CONSOLE 

NOT SEEN WITHIN 

MEOUT. SET C BIT 

) 



ACKNOWLEDGE* FROM STAR CPU 
TIME-OUT PERIOD> 
, RETURN> 



CLEAR TIMEOUT AND ERROR FLAG 
WAIT FOR 'CNSLAK*. USING R4 AS TIMEOUT 
BR IF 'CNSLAK' IS SET(STAR HAS STOPPED) 
PLUS ONE TO TIMEOUT COUNTER 
BRANCH UNTIL R4 REACHES ZERO 
OUT WAITING FOR STAR CPU RESPONSE 
MICRO-CODE IS NOT RUNNING OR IS SCREWED-UP 
,.CR ;TELL OPERATOR OF TIMEOUT 
.-SET TIMEOUT FLAG 



.DSABL LSB 



ZZ-ESKAA-10.1 TEST FOR A MICRO-ROUTINE ERROR 
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TEST FOR A MICRO-ROUTINE ERROR 



I 6 



Page 41 



20-MAY-1986 



Fiche 1 Frame 16 



Sequence 73 



3459 










.SBTTL 


TEST FOR A MI 


3460 














3461 










.ENABL 


LSB 


3462 














3463 


007756 






TSTERR: 


.-ROUTINE TO READ MICRO 


3464 










.•INPUTS 


NONE 


3465 










.•EFFECTS: ID REG 


3466 










« 


WHICH 


3467 










.•OUTPUTS: C BIT 


3468 


007756 


004077 


140054' 




JSR 


RO.aRSAVEP 


3469 


007762 


105767 


026773 




TSTB 


XLOFLG 


3470 


007766 


001056 






BNE 


REPLAC 


3471 


007770 


012702 


000056 




MOV 


*DSV,R2 


3472 


007774 


012703 


036610" 




MOV 


#G0TID.R3 


3473 


010000 


004767 


001036 




JSR 


PC.READID 


3474 


010004 


005000 






CLR 


RO 


3475 


010006 


004767 


000774 




JSR 


PC.WRID12 


3476 


010012 


116700 


026572 




MOVB 


GOTID.RO 


3477 


010016 


001440 






BEQ 


40$ 


3478 


010020 


020027 


000013 




CMP 


R0.#LASERR 


3479 


010024 


101410 






BLOS 


20$ 


3480 


C10026 








TYPEMES 


#UNKERR..CR 


3481 


010034 


004767 


003612 




JSR 


PC.TYPERC 


3482 


010040 


105267 


025553 


10$: 


INCB 


TIMOUT 


3483 


010044 


000426 






BR 


50$ 


3484 














3485 


010046 


006300 




20$: 


ASL 


RO 


3486 


010050 








TYPEMES 


TABMES(R0)..CR 


3487 


010056 


020027 


000014 




CMP 


R0.#HLTINS*2 


3488 


010062 


001416 






BEQ 


40$ 


3489 


010064 


020027 


000004 




CMP 


RO.KCONERR^ 


3490 


010070 


001003 






BNE 


30$ 


3491 


010072 


004767 


000366 




JSR 


FC.TYPIDR 


3492 


010076 


000760 






BR 


10$ 


3493 














3494 


010100 


020027 


000002 


30$: 


CMP 


R0.#MEMFAL*2 


3495 


010104 


001355 






BNE 


10$ 


3496 


010106 


116700 


026477 




MOVB 


GOTID*l.R0 


3497 


010112 


004767 


003534 




JSR 


PC.TYPERC 


3498 


010116 


000750 






BR 


10$ 


3499 














3500 


010120 


005727 




40$: 


TST 


(PC)* 


3501 


010122 


000261 




50$: 


SEC 




3502 


010124 






REPLAC: 




.•RESTORE R0-R5 


3503 


010124 


012605 






MOV 


(SP)*.R5 


3504 


010126 


012604 






MOV 


(SP)*.R4 


3505 


010130 


012603 






MOV 


(SP)-,R3 


3506 


010132 


012602 






MOV 


<SP)-.R2 


3507 


010134 


012601 






MOV 


(SP)*,R1 


3508 


010136 


012600 






MOV 


(SP)-.RO 


^509 


010140 


000207 






RTS 


PC 


3510 














3511 










.DSABL 


LSB 



-CODE FUNCTION STATUS REGISTER 

ISTER 'D.SV'(2E) CONTAINS A CODE 

IS STATUS OF LAST FUNCTION 
SET IF ERROR MESSAGE TYPED 

SAVE R0-R5 

ARE ME DOING AN 'X* BINARY LOAD 

EXIT. RESTORING REGISTERS. IF SO 

R5 GETS ADDRESS OF 'D.SV' 

R3 POINTS TO UHERE ID BUS DATA GOES 

READ D.SV TO 'GOTID* 

CLEAR 'D.SV 

RO GETS CODE RETURNED BY MICRO-ROUTINE 

BR IF CODE IS ZERO(SUCCESS) 

COMPARE CODE WE GOT TO HIGHEST POSSIBLE 

BR IF WITHIN RANGE 

CODE OUT OF RANGE. TYPE UNKNOWN ERROR HALT MESSAGE 

TYPE THE CODE WE GOT 

SET ERROR FLAG 



.•TYPE ERROR MESSAGE USING ERROR CODE AS AN INDEX 

.•BREAK OUT OF HERE IF CODE IS "HALT INSTRUCTION EXECUTED 

.•TAKE NO ERROR EXIT 

.-TEST FOR A 'CODE 2* ERROR 

;BR IF NOT A 'CODE 2' 

;TO BE PRINTED ON CONSOLE 



TEST FOR A MEMORY MANAGEMENT FAILURE 

BR IF NOT MEM-MAN FAILURE 

TYPE THE CODE ASSOCIATED WITH THE ERROR 



.-CLEAR C BIT 

.-SET C BIT 

CALLED BY 'BR REPLAC OR 'JMP REPLAC* 



ZZ-ESKAA-10.1 TEST FOR A STAR CPU HALT. REPORT A HALT 
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TEST FOR A STAR CPU HALT. REPORT A HALT 



J 6 



20-MAY-1986 



FIche 1 Fra»e J6 



Sequence 74 



3513 

3514 










3515 


010142 








3516 










3517 










3518 


010142 


105737 


173034 




3519 


010146 


100016 






3520 


010150 


032737 


000040 


173032 


3521 


010156 


001012 






3522 


010160 


032767 


000002 


025434 


3523 


010166 


001006 






3524 


010170 


004767 


000014 




3525 


10174 








3526 


10202 


022707 






3527 


010204 


000241 






3528 


010206 


000207 






3529 










3530 










3531 


010210 








3532 


010210 


004077 


140054' 




3533 


010214 


106746 






3534 


010216 


106427 


000340 




3535 


010222 


042713 


000004 




3536 


010226 


105737 


173014 




3537 


010232 


100010 






3538 


010234 


052713 


000004 




3539 


010240 


013767 


173020 


026330 


3540 


010246 


013767 


173022 


026324 


3541 


010254 


052737 


000400 


173032 


3542 


010262 


042737 


000140 


173034 


3543 


010270 


012702 


000022 




3544 


010274 


012703 


036614' 




3545 


010500 


004767 


000536 




3546 


010304 


052767 


000002 


025310 


3547 


010312 


004767 


000076 




3548 


010316 


(04767 


177434 




3549 


010322 








3550 


010330 


026727 


025062 


003562 


3551 


010336 


001411 






3552 


01C340 


105767 


025624 




3553 


010344 


001006 






3554 


010346 


052767 


000020 


025024 


3555 


010354 


016767 


026230 


312150 


3556 


010362 


106426 






3557 


010364 


105067 


025022 




3558 


010370 


004767 


175404 




3559 


010374 


103653 






3560 


010376 


012746 


036542* 




3561 


010402 


012746 


000004 




3562 


010406 


004767 


000024 




3563 


010412 


000644 






3564 










3565 


010414 








3566 


010414 


032737 


000001 


173034 


3567 


010422 


001004 







TSTHAL 



10$: 
20$: 



REPHLT: 



10$: 



20$ 



25$ 



EXTPIO; 



.SBTTL TEST FOR A STAR CPU HALT. REPORT A HALT 



TEST FOR A STAR CPU HALT 

'SAHHLT' BIT OF FLAG IS SET 
OUTPUTS: C BIT SET IF A HALT 



IF HALT ALREADY REPORTED 
MAS SEEN AND REPORTED 



TSTB 

BPL 

BIT 

BNE 

BIT 

BNE 

JSR 

TYPEMES 

CMP 

CLC 

RTS 



.•REPORT 
JSR 

hfps 

HTPS 

BIC 

TSTB 

BPL 

BIS 

MOV 

MOV 

BIS 

BIC 

MOV 

MOV 

JSR 

BIS 

JSR 

JSR 

TYPEMES 

CMP 

BEQ 

TSTB 

BNE 

BIS 

MOV 

MTPS 

CLRB 

JSR 

BCS 

MOV 

MOV 

JSR 

BR 

;IF<N0T 

BIT 

BNE 



a*KCS 

20$ 

#CLKSTD.a#MCR 

20$ 

#SAUHLT.FLAG 

20$ 

PC. REPHLT 

*CRNES 

(PC)*. PC 



TEST FOR CPU MICRO-MACHINE IN WAIT LOOP 

BR IF NOT HALTED 

TEST FOR CLOCK STOPPED 

BR IF CLOCK STOPPED 

TEST FOR THIS HALT ' ;;D* REPORTED 

BR IF IT UAS REPORTS DEVIOUSLY 

REPORT THIS HALT 

TYPE A CARRIAGE RETURN AND LINE FEED 

SET C BIT 



PC 



HALT 



A STAR CPU 

RO.aRSAVEP 

-(SP) 

#340 

*IDSAVD.(R3) 

atRXDONE 

10$ 

#IDSAVD.(R3> 

a#TOIDLO.SAVIDL 

a#TOIDHI.SAVIDH 

fSTRIND.a*MCR 



SAVE R0-R5, R3<--P0INTER TO 'FLAG' 

•«• 

BLOCK OUT LSI INTERRUPTS 

CLEAR THE 'ID SAVED* FLAG 

TEST FOR A CHARACTER IN 'TOID'(RXDB) 

BR IF NO CHAR IN 'TOID' 

REMEMBER UE ARE SAVING 'TOID' 

SAVE 'TOID* REG 

:DISABLE STAR INTERRUPTS 



#RDYIE!DNEIE.a#MCS .-DISABLE LSI UTS FORM 'RXDNE* AND 'RDYIE 



#TBUF0.R2 

ITBF0SV.R3 

PC.READID 

#SAUHLT.FLAG 

PC. EXTPIO 

PC.TSTERR 

/HLTMES..CR 

MHATTODO.#DOHALT 

25$ 

BOOTFL 

25$ 

*INITLD.TCONTL 

GOTID.SAVCOD 

(SP)* 

DEEXBY 

PC.EXDEPC 

REPLAC 

#DATAFR.-(SP) 

#4.-(SP) 

PC.CVNTYP 

REPLAC 



SAVE ID REG 'TBUF0 

READ ID REG TO 'TBFOSV 

PREVENT THIS HALT FROM B r ING REPORTED AGAIN 

CHECK FOR PROGRAM I/O EXiT 

TEST FOR AN ERROR HALT 

TYPE THE HALT MESSAGE 

.•HERE AS RESULT OF HALT COMMAND? 

BR IF YES(SKIP SETTING UP AUTO-RESTART) 

BOOTING? 

BR AND SKIP FLAGGING AUTORESTART IF rES 

SET FLAG TO CAUSE AUTO-RESTART 

SAVE THE 'HALT REASON' CODE(TO PASS INTO R12 

*«* RESTOR OLD PS 

FORCE AN EXAMINE 

EXAMINE THE STAR FC 

BR IF ERROR ON PC READ 

CONVERT PC TO ASCII STRING 

;CONVERT AND TYPE THE PC 



IN DISABLE) THEN <EXIT PROGRAM I/O MODE 
#LOCKD.a#MCS ;IN DISABLE POSITION? 
10$ ;BR IF YES 



ZZ-ESKAA-10.1 TEST FOR A STAR CPU HALT. REPORT A HALT 
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TEST FOR A STAR CPU HALT. REPORT A HALT 



K 6 



20-MAY-1986 



Fiche 1 Frame K6 



Sequence 75 



3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3590 
3581 
3582 
3583 
3584 
3585 
3586 
3587 



010424 
010430 

010434 

010436 



105067 
005037 

000207 



025165 
173016 



10$: 
CVNTYP: 



CLRB 
CLR 

RTS 



PGMIOM 
a#TXREAD 

PC 



DISABLE PROGRAM I/O MODE 

CLEAR 'TX READY • TO PREVENT TYPING FROM STAR 

(ABOVE INSTRUCTION HILL CAUSE INTERRUPT) 



CONVERT A NUMBER TO ASCII STRING IN CURRENT DEFAULT RADIX 
STACK C«« ENTRY: 

♦4 ADDRESS OF THE t TO CONVERT 

♦2 NUMBER OF BYTES IN * 

(SP)--> RETURN ADDRESS 
R2 IS CLOBBERED BY THIS ROUTINE 



010436 
010440 
010444 
010450 
010452 
010454 
010460 
010462 



012602 
012746 
105767 
001401 
006216 
004767 

000112 



000020 
024753 



140022' 



10$; 



MOV 


(SP)-.R2 


MOV 


#16. .-(SP) 


TSTB 


DEFRAD 


BEQ 


10$ 


ASR 


(SP) 


JSR 


PC.CONVRT 


TYPEMES 




JMP 


(R2) 



R2 GETS RETURN ADDRESS 
ASSUME RADIX IS HEX 
CHECK THE CURRENT DEFAULT 
BR IF RADIX IS HEX 
CHANGE RADIX TO OCTAL 
DO THE CONVERSION 
TYPE THE STRING 
RETURN VIA R2 



RADIX 



ZZ-ESKAA-10.1 TEST FOR A STAR CPU HALT. REPORT A HALT 
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TEST FOR A STAR CPU HALT. REPORT A HALT 

TYPIDR: 



L 6 



20-MAY-1986 



Fiche 1 Frame 16 



Sequence 76 



3589 01046* 








3590 








3591 








3592 010464 


004077 


140054" 




3593 010470 


052713 


000040 




3594 010474 


012700 


01C606* 




3595 010500 


005001 






3596 010502 








3597 010510 


111067 


026066 




3598 010514 


001603 






3599 010516 








3600 010524 


012746 


036602' 




3601 010530 


012746 


000001 




3602 010534 


004767 


177676 




3603 01^540 








3604 010546 


012703 


036610* 




3605 010552 


112002 






3606 010554 


004767 


000262 




3607 010560 


012746 


036610* 




3608 010564 


012746 


000004 




3609 010570 


004767 


177642 




3610 010574 


005201 






3611 010576 


020127 


000003 




3612 010602 


002742 






3613 010604 


000735 






3614 








3615 








3616 010606 


014 


022 


023 


010611 


031 


032 


036 


010614 


000 






3617 








3618 








3619 010616 








3620 








3621 








3622 








3623 








3624 010616 


004077 


140054* 




3625 010622 


032713 


000040 




3626 010626 


001437 






3627 010630 


042713 


000040 




3628 010634 


012705 


000023 




3629 010640 


012704 


036610' 




3630 010644 


010502 






3631 010646 


010403 






3632 010650 


004767 


000166 




3633 010654 


014301 






3634 010656 


014300 






3635 010660 


004767 


000072 




3636 010664 


020527 


000023 




3637 010670 


001003 






3638 010672 


012705 


000036 




3639 010676 


000760 






3640 








3641 010700 









10$: 
20$: 



.•ROUTINE TO TYPE OUT A LI 


;INPUTS 


: RO POINTS 




LIST IS T 


JSR 


RO.aRSAVEP 


BIS 


#SAWERR.(R3> 


MOV 


#IDTABL.RO 


CLR 


Rl 


TYPEMES 


#TAB..CR 


hovb 


(RO).IDTEMP 


BEQ 


REPLAC 


TYPEMES 


fOPNPAR 


NOV 


#IDTEMP.-(SP> 


HOV 


fl.-(SP) 


JSR 


PC.CVNTYP ; 


TYPEMES 


iCLSPAR 


HOV 


#GOTID.R3 ; 


MOVB 


(R0)*.R2 ; 


JSR 


PC.READID : 


MOV 


#GOTID.-(SP) 


MOV 


#4.-(SP) 


JSR 


PC.CVNTYP ; 


INC 


Rl 


CMP 


R1./3 


BLT 


20$ ; 


BR 


10$ 



OF ID BUS ADDRESSES 
l A BYTE LIST OF ID BUS ADDRESSES. 
TERMINATED BY A 
SAVE REGISTERS. POINT R3 TO 'FLAG' 
REMEMBER A TYPE 2 ERROR OCCURRED 
POINT RO TO LIST OF ADDRESSES TO READ 
USE Rl TO COUNT REGISTERS TYPED PER LINE 
TYPE A CRLF AND A TAB 
GET AN ID REGISTER ADDRESS 
BR IF AT END OF LIST 
TYPE "(<ADDRESS>> <CONTENTS> " 
CONVERT ID REG ADDRESS AND TYPE IT 

CONVERT ADDRESS TO ASCII AND TYPE 

TYPE CLOSING PAREN AND ONE SPACE 

R3 POINTS TO WHERE ID DATA GOES 

R2 GETS ADDRESS 

GET CONTENTS OF ID REGISTER ADDRESSED BY R2 

NOW CONVERT CONTENTS TO ASCII STRING 

CONVERT CONTENTS TO ASCII AND TYPE 
UPDATE ITEMS PER LINE COUNTER 
CHECK FOR 3 ITEMS TYPED ON ONE LINE 
BR IF LESS THAN 3 ON THIS LINE 
START A NEW LINE 



IDTABL: .BYTE CESREG.TBUFO .TBUF1 .SBIERR .SBIADD .CACPAR.O 



TSTTY2; 



.EVEN 

TEST FOR A CODE 2 MICRO-ERROR HAVING OCCURRED. IF IT HAS. 
CLEAR OUT SOME ID REGISTER ERROR BITS 

INPUTS: 'SAWERR* BIT OF 'FLAG* SET IF TYPE2 ERROR OCCURRED 
OUTPUTS: ID REGS 13.19. AND IE ARE CLEARED OF ERRORS IF 'SAWERR' 
BIT OF 'FLAG' HAS SET ON ENTRY 



5$; 



JSR RO.aRSAVEP 

BIT #SAWERR.(R3) 

BEQ 20$ 

BIC *SAW£RR,(R3) 

MOV ITBUF1.R5 

MOV IGOTID.R4 

MOV R5.R2 

MOV R4.R3 

JSR PC.READID 

MOV -(R3).R1 

MOV -<R3).R0 

JSR PC.WRITID 

CMP R5,#TBUF1 

BNE 10$ 

MOV *CACPAR.R5 

BR 5$ 



SAVE R0-R5.R3 GETS POINTER TO 'FLAG- 
TEST FOR 'CODE 2' ERROR HAVING OCCURRED 
BR IF NO CODE 2 ERROR OCCURRED 
CLEAR THE BIT THAT REMEMBERS THE ERROR 

FIRST CLEAR ID REGS 13 AND IE BY WRITING CONTENTS TO THEMSE 
R4 GETS A USEFUL POINTER 



;R1 
;R0 



GETS 
GETS 



THE MSB 
LSB'S 



S OF ID REG READ 



TEST FOR FIRST OR 
BR IF SECOND PASS 
GET REG IE NEXT 



SECOND PASS THRU 



10$ 



.•CLEAR ID REG 'SBIERR' ( 19) BY READING CONTENTS TO A TEMPORARY LOCATION. 











M 6 






ZZ-ESKAA-10.1 


TEST FOF 


! A STAR CPU HALT. REPORT A HALT 20-MAT-1986 Fiche 1 Frame 


M6 


Sequence 77 


V10-01-L 


MACRO V05.03 Friday 25-Apr-86 


10:56 


Page 43-1 






TEST FOR A STAR 


CPU HAL! 


'. REPORT A HALT 










3642 








.-SETTING BITS IN THAT TEMPORARY CORRESPONDING 


TO 


'CP TIMEOUT'. 'CRD'. AND 'RDS 


3643 








.-THEN WRITE THE TEMP BACK TO 'SBIERR' 






3644 010700 


012702 


000031 


MOV 


JSBIERR.R2 






3645 010704 


010403 




MOV 


R4.R3 .-POINT R3 TO 'GOTID' 






3646 010706 


004767 


000130 


JSR 


PC.READID 






3647 








;NOU GOTID HOLDS CONTENTS READ FROM 'SBIERR* 






3648 








.-SET PROPER BITS (14.13.12) 






3649 010712 


014301 




MOV 


-(R3).R1 ;R1 GETS MSB'S OF ID REG READ 






3650 010714 


014300 




MOV 


-(R3).R0 ;R0 GETS LSB'S 






3651 010716 


052700 


070000 


BIS 


I70GOO.RO 






3652 010722 


004767 


000030 


JSR 


PC.HRITID 






3653 010726 


000167 


177172 20$: 


JMP 


REPLAC 







ZZ-ESKAA-10.1 PUSH MICRO-STACK. READ/WRITE ID 
VIO-Ol-L MACRO V05.03 Friday 25-Apr-86 
PUSH MICRO-STACK. READ/WRITE ID BUS REGISTERS 

3655 

3656 

3657 

3658 

3659 010732 PUSHU: 

3660 

3661 

3662 010732 010246 

3663 010734 042700 160000 

3664 010740 012702 000040 

3665 010744 005001 

3666 010746 0047,;7 000004 

3667 010752 0126J2 

3668 010754 000207 
3669 

3670 010756 WRITID: 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 010756 042702 177700 

3681 010762 004767 000102 

3682 010766 103424 

3683 010770 020227 000022 

3684 010774 001004 

3685 010776 010067 025612 

3686 011002 010167 025610 

3687 011006 052702 lOOluO WRID12 

3688 011012 010037 173020 

3689 011016 910137 173022 

3690 011022 010237 173030 

3691 011026 042737 000100 173030 

3692 011034 RTCCLR 

3693 011034 005727 30$: 

3694 011036 000261 40$ 

3695 011040 000207 50$ 
3696 

3697 011042 READID 

3698 
1699 
3700 
3701 
3702 
3703 
3704 
3705 

3706 011042 042702 177700 

3707 011046 052702 100000 

3708 011052 010237 173030 

3709 011056 013723 173024 



BUS REGISTERS 
10:56 Page 44 



N 6 



20-MAY-1986 



Fiche 1 Frame N6 



Sequence 78 



.SBTTL PUSH MICRO-STACK. READ/WRITE ID BUS REGISTERS 

.ENABL LSB 

ROUTINE TO PUSH A WORD ON THE MICRO-STACK 
INPUTS: RO IS LSB'S OF WORD TO PUSH 
OUTPUTS: C BIT SET IF CLOCK IS STOPPED 



MOV 
BIC 
MOV 
CLR 
JSR 
MOV 
RTS 



R2.-(SP) 

#160000. RO 

#IDAUST.R2 

Rl 

PC. WRITID 

(SP)*.R2 

PC 



:CLEAR UNUSED MICRO-ADDRESS BITS 

;PUT ID BUS ADDRESS OF MICRO-STACK IN R2 



ROUTINE TO HRITE TO AN ID BUS ADDRESS 

INPUTS: R0.R1 ARE DATA TO WRITE(R0 IS LSB) 

R2 IS ID BUS ADDRESS 
EFFECT: 'TOID LO' GETS RO 
'TOID HI' GETS Rl 
•ID ADDRESS' GETS R2 
R2=R2 'AND* 177700 

ID REG SPECIFIED BY 'ID ADDRESS GETS 'TOID' 
OUTPUTS: IF ID ADDRESS 12 IS R£FERENCED( .-JFO) THEN THE 
DATA WRITTEN IS SAVED IN 'TBFOSV 

.•CLEAR ALL EXCEPT ID ADDRESS IN R2 
.-TEST FOR CLOCK STOP 
:BR IF CLOCK STOP OCCURRED 
.•CHECK FOR A REFERENCE TO 'TBUFO' 



BIC 
JSR 
BC3 
CMP 
BNE 
MOV 
MOV 
BIS 
MOV 
MOV 
MOV 
BIC 

TST 
SEC 
RTS 



#177700. R2 

PC.TSTCST 

50$ 

R2.#TBUF0 

URID12 

RO.TBFOSV 

R1.TBF0SV-2 

#IDCYCL!IDHRIT.R2 

R0.a#TOIDLO 

Rl,3#TOIDHI 

R2.a#IDCNTL 

#IDWRIT.a#IDCNTL 



.•CHANGE OUR SAVED COPY OF 'TBUFO' 

;FOR USE WHEN DOING PHYSICAL OR VIRTUAL MEMORY REFERINCES 
;SET 'ID CYCLE' AND 'ID WRITE' 



(PC)- 

PC 



.•CLEAR 
;SET C 



C BIT 
BIT 



ROUTINE TO REAP AN ID BUS REGISTER . (CLOCK RUNNING) 

INPUTS: R2 IS ID BUS ADDRESS 

R3 POINTS TO WHERE ID DATA GOES 

OUTPUTS: C BIT CLEAR 

(R3)=L0WER 16 BITS OF ID REGISTER 
2(R3)=UPPER 16 BITS OF ID REGISTER 
R3 ON EXIT = R3 ON ENTRY PLUS 4 
R2 IS CLOBBERED 



BIC #177700. R2 

BiS #IDCYCL.R2 

MOV R2.a#IDCNTL 

MOV a#FMIDL0.(R3)* 



CLEAR OUT ALL EXCEPT ADDRESS IN R2 

SET ID CYCLE BIT IN R2 

PUT ADDRESS IN ID CONTROL REG AND START READ 

DATA NOW IN 'FMID* 



ZZ-ESKAA-10.1 PUSH MICRO-STACK. READ/VRITE ID 
VIO-Ol-L MACRO V05.03 Friday 2S-Apr-86 
PUSH MICRO-STACK. READ/HRITE ID BUS REGISTERS 



3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 



011062 013723 173026 
011066 000762 

011070 



011070 
011076 
011100 
011106 
011114 
011122 



TSTCST 



032737 
001756 



000745 



000040 173032 



B 7 



BUS REGISTERS 
10:56 Page 44 



20-MAY-1986 



Fiche 1 Frane B7 



Sequence 79 



MOV 
BR 



a#FMIDHI 
30$ 



(R3> 



TEST FOR A CLOCK STOP 
IF<CPU CLOCK IS STOPPED) 

THEN< DTtPE <CRLFxTAB> fCPU 
2) SET C BIT. RETURN : 

ELSE< CLEAR C 8IT.RETURN> 



CLOCK STOPPED. COMMAND ABORTED 



TYPCAD: 



BIT 

BEQ 

TYPEMES 

TYPEHES 

TYPEMES 

BR 



<CLK3TD.a*MCR 

30$ 

*CLKERR.,CR 

#CLOCKS 

#CANTDO 

40$ 



.•TEST CLOCK STOPPED BIT 
;BR IF CLOCK RUNNING 



.DSABL LSB 



Z7-ESKAA-10.1 TEST FOR STAR CPU RUNNING 

VIO-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

TEST FOR STAR CPU RUNNING 



C 7 



Page 45 



20-MAY-1986 



Fiche 1 Frame C7 



Sequence 80 



3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 



011124 
011124 
011130 



011132 
011140 
011142 
011150 



011152 
011154 
011156 
011160 
011162 
011164 
011166 
011170 
011172 
011174 
011176 



105737 
100741 



032737 
001735 

000761 



011150 

020737* 

020765' 

021013* 

021032* 

021052* 

021145* 

021075* 

021113* 

021130* 

021171* 

021203' 



.SBTTL TEST FOR STAR CPU RUNNING 



173034 



000400 173034 



TSTRUN 



;IF<HALTED> 

TSTB 

BMI 



BIT 
BEQ 

TYPEMES 
BR 



THEN <RETURN C BIT CLEAR> ELSE <RETURN C BIT SET> 
a#MCS .-TEST FOR 'CPU IN WAIT LOOP' 

RTCCLR .-BRANCH IF CPU IS HALTED 

;CPU IS NOT HALTEDU.E. IN WAIT LOOP). CHECK FOR 
.-RUN BIT CLEARCMEAN3 CPU MICRO-CODE IS NOT RUNNING) 
#RUNBIT,a#MCS 



RTCCLR 

ISTRRUN, 

TYPCAD 



,CR 



BR IF TIMED-OUT(ALLOH FUNCTION) 

TELL OPERATOR CPU IS NOT IN WAIT LOOP 

TYPE 'COMMAND ABORTED*. THEN RETURN 



;MICR0- 


CODE ER 


TABMES=.-BASE-2 




.UORD 


HEMMAN 


.WORD 


CONSER 


.WORD 


RESCOM 


.WORD 


INSTIV 


.WORD 


CPDBLE 


.WORD 


HLINST 


.WORD 


1LIEVC 


.UORD 


NOWCSU 


.WORD 


EINTPE 


.WORD 


ERRCHM 


.WORD 


ERRPRG 



MESSAGE INDEX TABLE 



ZZ-ESKAA-10.1 TEST FOR A MICRO-MACHINE TIME OUT 
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TEST FOR A MICRO-MACHINE TIME OUT 



D 7 



Page 46 



20-MAY-1986 



Fiche 1 Frame D7 



Sequence 81 



3754 

3/55 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 



011200 



011200 
011202 
011210 
011212 
011216 
011220 
011226 
011230 
011234 
011236 
011242 
011250 
011254 
011256 
011264 
011272 
011276 
011304 
011312 
011314 

011316 
011322 



000241 
032737 
001044 
105737 
100437 
032737 
001033 
105767 
001032 
105267 

105767 
001416 
052767 
052737 
004767 
042737 
052737 
000261 
000402 

105067 
000207 



TSTTMO: 



000400 173034 

173034 

000040 173032 

011257 

011251 



037751" 

000020 
000002 
176114 
000002 
000001 



011171 



024114 
173032 

173032 
173032 



5$ 



10$: 
20$: 



SBTTL TEST FOR A MICRO-MACHINE TIME OUT 
TEST FOR A STAR CPU MICRO-MACHINE TIME OUT 



INPUTS: 
OUTPUTS 
PROCESS 



NONE 

C BIT SET IF MICRO-MACHINE TIME OUT 

THERE IS AN 'INTERRUPT STROBE TIME OUT' CIRCUIT 
ON THE CONSOLE INTERFACE BOARD. THAT MEASURES THE 
TIME BETWEEN SUCCESSIVE STAR 'INTERRUPT STROBES*. 
A FAILURE TO STROBE INTERRUPTS WITHIN A CERTAIN 
MAXIMUM TIME PERIOD INDICATES A PROBLEM IN THE 
MICRO-MACHINE. AND WILL CAUSE A BIT TO CLEAR IN 
THE CONSOLE INTERFACE'S 'MCS' REGISTER. IF THIS 
ROUTINE DETECTS SUCH A TIME OUT. THE FOLLOWING 
ACTION IS TAKEN: 

1) THE CONSOLE DISPLAYS: 'MICRO-MACHINE TIME OUT' 

2) THE CONSOLE SETS A FLAG TO PREVENT REPEATING 

THIS MESSAGE UNTIL A NON-TIME OUT CONDITION IS SEEN. 

3) IF AUTO-RESTART IS ENABLED. THE CONSOLE WILL 
MOMENTARILY STOP THE STAR CPU CLOCK AND 'SNAP SHOT' 
THE STAR MICRO-PC. UPON RETURN FROM THIS ROUTINE 

A ETAP AUTO-RESTART SEQUENCE WILL BE PERFORMED. 

TIME OUT CONDITION DEFINITION: 

IF<(STAR NOT HALTED) 'AND ' (CLOCK RUNNING) *AND( INT TIMEOUT B I T = ) > 
THEN<TIME OUT IS INDICATED) 



CLC 

BIT 

3NE 

TSTB 

BMI 

BIT 

BNE 

TSTB 

BNE 

INCB 

TYPEMES 

TSTB 

BEQ 

BIS 

BIS 

JSR 

BIC 

BIS 

SEC 

BR 

CLRB 
RTS 



#RUNBIT.a*MCS 

20$ 

aiMCS 

10$ 

#CLKSTD.5i*riCR 

10$ 

SAWTMO 

20$ 

SAWTMO 

#MMTMOU, ,CR 

AUTFLG 

5$ 

#INITLD.TCONTL 

*SBC.a#MCR 

PC.TYPTIC 

#SBC,a#MCR 

#PROCED.a#MCR 

20$ 

S&WTMO 



INTERRUPT TIME-OUT BIT CLEAR? 

BR IF NOT TO EXIT 

STAR HALTED? 

BR IF YES AND EXITCCLEARING TIMEOUT SF^N FLAG) 

STAR CLOCK STOPPED? 

BR IF YES AND EXIT 

HAS THIS TIMEOUT BEEN REPORTED' 

BR IF YES AND EXIT 

REMEMBER WE SAW A TIMEOUT 

TYPE THE TIME OUT MESSAGE 

AUTORESTART ENABLED? 

BR IF NOT AND EXIT 

SET SOFT AUTORESTART FLAG TO CAUSE AR LATER 

STOP THE CPU CLOCK 

SNAP SHOT THE MICRO-PC 

CLEAR SINGLE BUS CYCLE BIT 

RESTART CLOCK 

SET C BIT TO INDICATE TIME OUT SEEN 

EXIT 

INITIALIZE 'SAW A TIMEOUT" FLAG 



ZZ-ESKAA-10.1 PCS. WCS. FPLA VERSION 
V10-01-L MACRO V05.03 Friday 
PCS.MCS.FPLA VERSION CHECKING 



3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3P18 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 



011324 



011324 
011326 
011334 
011336 
011344 
011346 
011354 
011360 
011364 
011366 
011370 
011372 
011374 
011376 
011400 
011404 
011406 
011414 
011416 
011420 
011422 



011424 



011424 
011430 
011434 
011440 
011444 
011450 
011454 
011460 



010046 
032767 
001424 
126767 
001403 

116700 
042700 
000241 
106100 
106100 
106100 
106100 
106100 
120067 
0C1404 

022707 
000241 
012600 
000207 



012700 
004767 
042705 
110567 
012700 
004767 
110567 
012700 



CHECKING 
25-Apr-86 



TSTVER; 



E 7 



10:56 Page 47 



20-MAY-1986 



Fiche 1 Frame E7 



Sequence 82 



.SBTTL PCS.HCS.FPLA VERSION CHECKING 

MAKE VERSION COMPATIBILITY CHECK OF MICRO-SOFTWARE 
TEST FOR: 

0) IS WCS LOADED? 

1) WCS PRIMARY VERSION = FPLA VERSION 

2) UPPER 2 BITS OF HCS SECONDARY VERSION = PCS VERSION 

IF<0 FALSE> THEN <TYPE WARNING. EXIT C BIT SET> 

IF<1 AND 2 TRUE> THEN <EXIT. C BIT CLEAR> 

IF<1 FALSE & 2 TRUE> THEN <TYPE WARNING. EXIT C BIT CLEAR) 

IF<2 FALSE> THEN <TYPE WARNING. EXIT C BIT SET> 



004000 024266 
037753* 037755* 



037754* 
177717 



10$: 



037752' 



15$: 
20$: 

GETVER; 



MOV 

BIT 

BEQ 

CMPB 

BEQ 

TYPEMES 

MOVB 

BIC 

CLC 

ROLB 

ROLB 

ROLB 

ROLB 

ROLB 

CMPB 

BEQ 

TYPEMES 

CMP 

CLC 

MOV 

RTS 



RO.-(SP) 

fWCSPRES.FLAG 

15$ 

WPHVER.FPLVER 

10$ 

#WCNEFP,.CR 

HSCVER.RO 

#177717. RO 

RO 

RO 

RO 

RO 

RO 

RO.PCSVER 

20$ 

#WCNEPC..CR 

(PC)*. PC 

(SP)-.RO 
PC 



IS WCS LOADED? 
BRANCH IF NC 
HCS PRIM VER = FPLA VER?(TEST 1) 
BR IF WCS MATCHES FPLA 
TYPE 'WARNING-HCS & FPLA VER MISMATCH) 
RO GETS HCS SEC VER 
CLR ALL EXCEPT PCS VER 
GET PCS VERSION BITS TO LSB'S OF RO 



HCS SEC VER 
BR IF MATCH 
TYPE "FATAL-WCS 
SET C BIT. SKIP 



PCS VER?(TEST 2) 



& PCS VER MISMATCH' 
NEXT INSTRUCTION 



COLLECT VERSIONS OF WCS. PCS. AND FPLA 

PCS VERSION IN LOWER 2 BITS OF ID ADDRESS FIELD FROM LOC 111 IN MICRO-STORE 
WCS PRIMARY VERSION IN ID ADDRESS OF LOC 1111 
WCS SECONDARY VERSION IN ID ADDRESS OF LOC 1112 
FPLA VERSION IS LOWER 6 BITS OF NEXT MICRO-PC AFTER F80 
MICRO CODE OPTION FLAG (KE780) IS BIT OF NEXT MICRO PC AFTER 085 
STATE OF STAR: CLOCK RUNNING. MICRO-MACHINE IN CONSOLE SERVICE LOOP 
BOTH BEFORE AND AFTER VERSION COLLECTION 



GET PCS AND HCS VERSIONS 



000421 
000256 
177774 
037752 
010421 
000236 
037753 
010421 



MOV 


lPCVERS.RO 


jSR 


PC.RDIDAD 


BIC 


#177774. R5 


MOVB 


R5.PCSVER 


MOV 


/WCVERS.RO 


JSR 


PC.RDIDAD 


MOVB 


R5.WPMVER 


MOV 


fWCVERS.RO 



RO GETS ADDRESS OF PCS VERSION INSTRUCTION 

R5 GETS ID ADDRESS FIELD 

CLEAR UNUSED BITS 

SAVE PCS VERSION 

RO GETS PNTR TO WCS PRIM VER INSTRUCTION 

R5 GETS ID ADDRESS FIELD 

SAVE WCS PRIMARY VER 



ZZ-ESKAA-10.1 PCS.HCS.FPLA VERSION CHECKING 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 47-1 

PCS.HCS.FPLA VERSION CHECKING 



F 7 



20-HAY-1986 



Fiche 1 Frame F7 



Sequence 83 



3863 
3864 
3865 
3866 
3667 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3b76 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 

3916 



011464 
011466 
011472 



011476 
011502 
011506 
011512 
011516 
011522 



011526 
011532 
011536 

011542 
011546 

011552 
011556 
011562 
011566 
011570 
011574 
011576 
011604 



011612 
011616 
011622 

011625 
011632 
011634 
011640 
011642 
011650 



011656 
011662 
011666 
011672 
011700 

011704 
011707 



005200 
004767 
110567 



012700 
004767 
012700 
004767 
012700 
004767 



012704 
004767 
052714 

052714 
052714 

052714 
105067 
005067 
010446 
004767 
012604 
116767 
142767 



052714 
052714 
052714 

052714 
010446 
004767 
012604 
116767 
142767 



052714 

042714 
052714 
052767 
000167 

OOC 
014 



000220 
037754' 



000377 
177224 
000205 
177214 
007600 
177204 



173032 
172620 
002200 

000001 
000001 

000001 
023630 
025016 

174262 

024740 
000300 



002000 
000001 
000001 

000001 

174216 

024674 
177776 



002000 
000202 
000001 
000040 
176712 

004 

020 



INC 
JSR 

MOVB 



RO 

PC.RDIDAD 

R5.WSCVER 



.•COMPUTE ADDRESS OF HCS SEC VER INSTRUCTION 
;R5 GETS ID ADDRESS FIELD 
.-SAVE WCS SECONDARY VER 



GET FPLA VERSION AND OPTION FLAG 



nov 

JSR 
MOV 
JSR 

nov 

JSR 



#377. RO 

PC.PUSHU 

fMOPTFL.RO 

PC.PUSHU 

#FPVERS.R0 

PC.PUSHU 



RO GETS POINTER TO CONSOLE ROUTINE 

PUT ON MICRO STACK 

RO GETS PTR TO KE780 PRESENT FLAG 

PUT ON mi;ro STACK 

RO GETS PNTR TO FPLA VER INSTRUCTION 

PUSH RO ON STAR'S MICRO-STACK 



ALL 3 ADDRESSES ON MICRO STACK. FIRST GET FPLA VERSION 



037755' 
037755' 



MOV #MCR.R4 

JSR PC.DOSSTB 

BIS #MAINTR!ROMNOP, 

BIS <PR0CED.(R4) 

BIS #PR0CED.(R4) 

BIS #PR0CED.(R4) 

CLRP DEEXBY 

CLP EFFADR 

MOV R4.-CSP) 

JSR PC.EXUPC 

MOV <SP)*.R4 

MOVB DATAFR.FPLVER 

BICB #300.FPLVER 



;SET SINGLE BUS CYCLE 
(R4) 

SET MAINTENANCE RETURN BIT & ROM NOP 

CAUSE 1 CYCLEHO ENABLE MAINT RET) 

ALLOW ECO TO OCCUR LATCHING NEW ADDRESS 

IN ECO ADDRESS LATCH 

LATCH NEW ADDRESS IN UPC LATCH 

FORCE EXAMINE 

PREPARE TO READ MICRO-PC 

SAVE R4 

CALL MICRO-PC EXAMINE RTN 

RESTORE R4 

GET FPLA VERSION 

SCRATCH UNUSED BITS 



NOW GET THE G S H OPTION FLAG FROM THE FPLA 



037744 
037744 



BIS #MAINTR.(R4) 

BIS #PR0CED.(R4) 

SIS #PR0CED.(R4) 

BIS #PR0CED.CR4) 

MOV R4.-(SP) 

JSR PC.EXUPC 

MOV <SP)*.R4 

MOVB DATAFR.MICOPT 

BICB #aC<0PTMSK>.M1C0PT 



SET MAINTENANCE RETURN BIT 

CAUSE 1 CYCLECTO ENABLE MAINT RET) 

ALLOW ECO TO OCCUR LATCHING NEW ADDRESS 

IN ECO ADDRESS LATCH 

LATCH NEW ADDRESS IN UPC LATCH 

SAVE R4 

GET MICRO PC 

RESTORE R4 

GET "HE OPTION FLAG 



NOW RETURN TO THE CONSOLE WAI f LOOP 



023722 



BIS 
BIC 
BIS 
BIS 

JMP 



010 SIZTBL: .BYTE 
.EVEN 



#MAINTR.(R4) 

#SBC!R0MN0P.(R4) 

fPR0CED.(R4) 

#SAWERR.FLAG 

TSTTY2 

0,4,10.14.20 



SET MAINTENANCE RETURN BIT 

CLEAR SINGLE BUS CYCLE 8 ROM NOP 

FREE RUN CLOCK 

THIS WILL FORCE ERROR CLEARING IN 'TSTTY2 

CLEAR SBI ERROR REGISTERSUD BUS SPACE) 

;0,1K.2K,3K,4K IF IN UPPER BYTE OF A WORD 



G 7 
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PCS.WCS.FPLA VERSION CHECKING 

3917 



H 7 



ZZ-ESKAA-10.1 
V10-01-L 
READ ID BUS 



READ ID BUS REGISTER 
MACRO V05.03 Friday 
REGISTER ROUTINE 



3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 



011712 



011712 
011716 
011722 
011726 
011732 
011736 
011742 
011746 
011752 
011756 
011762 
011764 
011770 
011774 



ROUTINE 
25-Apr-86 



RDIDAD 



10:56 Page 48 



20-NAY-1986 



Fiche 1 Frame H7 



Sequence 85 



SBTTL READ ID BUS REGISTER ROUTINE 
SET HICRO-PC AND READ ID ADDRESS FIELD 
INPUTS: RO IS MICRO-ADDRESS TO USE 
OUTPUTS: R5 IS ID ADDRSS FROM MICRO-INST 



004767 
012704 
004767 
052714 
052714 
052714 
042714 
052714 
042714 
113705 
005105 
042705 
052714 
000207 



177014 
173032 
172430 
000200 
002000 
000001 
000200 
000001 
000002 
173031 

177700 
000001 



JSR PC.PUSHU 

MOV #MCR.R4 

JSR PC.DOSSTB 

BIS #R0MN0P.(R4) 

BIS #MAINTR.(R4> 

BIS #PROCED.(R4) 

BIC #R0MN0P.(R4) 

BIS #PR0CED.(R4) 

BIC #SBC,(R4) 

MOVB a#IDCNTl-l.R5 

COM R5 

BIC #177700, R5 

BIS #PR0CED.(R4) 

RTS PC 



.-PUSH RO ONTO MICRO-STACK 

ENABLE SINGLE BUS CYCLE MODE 

ASSERT ROM-NOP 

ASSERT MAINTENANCE RETURN 

1 CYCLE TO ENABLE MAINT RET 

DISABLE ROM NOP 

1 CYCLE TO PERFORM MAINT RET 

.•CLEAR SINGLE BUS CYCLE 

R5 GETS ID ADDRESS BITS 

COMP BITS BECAUSE HM REVERSES SENSE 

CLEAR UNUSED BITS 

FREE RUN CLOCK 



I 7 



ZZ-ESKAA-10.1 FILENAME CONVERSION TO RAD50 

V10-01-L MAC°0 V05.03 Friday 25-Apr-86 10:56 Pase 49 

FILENAME CONVERSION TO RAD50 



20-MAY-1986 



Fiche 1 Frame 17 



Sequence 86 



3939 






3940 






3941 






3942 






3943 011776 






3944 






3945 






3946 






3947 






3948 






3949 






3950 






3951 






3952 






3953 011776 


01G446 




3954 012030 


042767 


002000 023614 


3955 012006 


012700 


022546' 


3956 012012 


005020 




3957 012014 


OC5020 




3958 012016 


005020 




3959 012020 


005001 




3960 012022 


105067 


010457 


3961 012026 


105767 


010453 


39*2 012032 


001121 




3963 012034 


004767 


002746 


3964 012040 


103410 




3965 012042 


105267 


010437 


3966 012046 


005701 




3967 012050 


001061 




3968 012052 


052767 


002000 023542 


3969 012060 


000455 




3970 






3971 012062 


121427 


000056 


3972 012066 


001451 




3973 012070 


005201 




3974 012072 


010146 




3975 012074 


005002 




3976 012076 


162701 


000003 


3977 012102 


003402 




3978 012104 


005202 




3979 012106 


000773 




3980 012110 


012601 




3981 012112 


006302 




3982 012114 


n 16200 


013702' 


3983 012120 


111402 




3984 012122 


020227 


000101 


3985 012126 


C02406 




3986 012130 


020227 


000132 


3987 012134 


003053 




3988 012136 


162702 


000100 


3989 012142 


000416 




3990 






3991 012144 


02022, 


000060 


3992 012150 


002406 




3993 012152 


020227 


000071 



XLATFN: 



10$ 



1$ 



2$: 



3$ 



5$: 



.SBTTL FILENAME CONVERSION TO RAD50 



.ENABL LSB 

TRANSLATE / 

INPUTS: 

OUTPUTS: 



FILENAME FROM ASCII TO RAD50 
R4-->ASCII FILENAME STRING 
IF C BIT SET: 

"FILENM* CONTAINS FILENAME IN RAD50 
R4-->FIRST CHARACTER BEYOND FILENAME 



IN INPUT STRING 



IF C BIT CLEAR: 
FILE NAME COULD 
R4 UNCHANGED 



NOT BE TRANSLATED 



MOV R4.-(SP) 

BIC fUSEDEF.FLAG 

MOV JFILENM.RO 

CLR (RO)* 

CLR (R0) + 

CLR (RO)* 

CLR Rl 

CLRB CNVTDN 

TSTB CNVTDN 

BNE 50$ 

JSR PC.TESTND 

BCS 1$ 

INCB CNVTDN 

TST Rl 

BNE 30$ 

BIS #USEDEF.FLAO 

BR 30$ 

CMPB (R4),*56 

BEQ 9$ 

INC Rl 

MOV Rl.-(SP) 

CLR R2 

SUB *3.R1 

BLE 3$ 

INC R2 

BR 2$ 

MOV (SP)*,R1 

ASL R2 

MOV FILTAB(R2).R0 

MOVB (R4),R2 

CMP R2.#*A 

BLT 5$ 

CMP R2.#'Z 

BGT 40$ 

SUB >100.R2 

BR 8$ 

CMP R2.#'0 

BLT 6$ 

CMP R2,#'9 



;CLEAR USE DEFAULT FLAG 
.•POINT RO TO FILENAME BLOCK 



FILE NAME IS INITIALLY BLANKS 

Rl IS A COUNTER 

CLEAR 'CONVERSION DONE' FLAG 

TEST CONVERT DONE FLAG 

BR IF CONVERSION DONE 

CHECK FOR A DELIMITER IN THE INPUT STRING 

BR IF NO DELIMITER 

REMEMBER CONVERSION IS DONE 

NO FILE NAME? 

BRANCH IF FILE NAME SPECIFIED 

SET USE DEFAULT FLAG 

GO LEFT JUSTIFY AND ZERO FILL 

CHECK FOR A PERIOD 

BR IF PERIOD. LEFT JUSTIFY FILE NAME 

ADD 1 TO POSITION COUNTER 

SAVE Rl TEMPORARILY 

SET CONVERSION POINTER TO PROPER WORD OF FILENAME BLOCK 



.-RESTORE Rl 

SET POINTER 

R2 GETS CHARACTER IN ASCII 

TEST FOR ASCII A 

BR IF LESS THAN ASCII A 

;BR IF GREATER THAN ASCII Z 

;CHAR IS A THRU Z. SUBTRACT 100 TO CNVT TO RAD50 



;TEST FOR ASCII THRU 9 
;BR IF LESS THAN ASCII 



ZZ-ESKAA- 

V10-01-L 

FILENAME 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4C32 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 



J 7 



10.1 FILENAME CONVERSION TO RAD50 

MACRO V05.03 Friday 25-Apr-86 10:56 Page 49-1 
CONVERSION TO RAD50 



20-MAY-1986 



Fiche 1 Frame J7 



Sequence 87 



012156 
012160 
012164 

012166 
0U172 
012174 
012200 
012204 
012206 
012210 



012214 
012214 
012220 
012222 
012224 
012226 
012232 
012234 
012240 
012242 
012246 
012250 

012252 
012254 
012260 
012262 

012264 
012272 
012274 
012276 



012302 
012302 
012304 
012306 
012310 
012312 
012314 
012316 
012320 



003042 
162702 
000405 

020227 
001034 
012702 
004767 
060210 
005204 
000706 



012212 005204 



012702 
160102 
001701 
002412 
020227 
001003 
012701 
000672 
004767 
005201 
000761 

005402 
020227 
001662 

002767 



012604 
022707 
005726 



012300 C002Q7 



006310 
0G6310 
006210 
011046 
30631 C 
06310 
062610 
000207 



000022 



000044 

000033 
000076 



000006 



000003 
000006 
000034 



000003 



6$: 

8$: 

9$: 
30$: 



60$: 



BGT 
SUB 
BR 

CMP 
BNE 

MOV 
JSR 
ADD 
INC 
BR 

INC 



40$ 

#22. R2 
8$ 

R2.#'$ 

40$ 

#33. R2 

PC. 60$ 

R2.(R0) 

R4 

10$ 



;BR IF > THAN ASCII 9 
;CHAR IS ASCII THRU 9 



SUB 22 TO CNVT TO RAD50 



.-TEST FOR A DOLLAR SIGN 

;BR IF NOT A DOLLAR 

.-DOLLAR IS A 33 

;MULT CURRENT FILENAME WORD BY 50 AND THEN ADD R2 

.-ADD VALUE IN R2 

.•UPDATE INPUT STRING POINTER 

;GET NEXT CHARACTER 



R4 .-UPDATE INPUT STRING POINTER 

;UE ARRIVE HERE WHEN A PERIOD IS SPOTTED. OR WHEN 

.•THE INPUT ASCII STRING IS EMPTY 

;JUSTIFY LEFT AND ZERO FILL FILENAME OR EXTENSION 

WE ARE COMPARING CONVERSION COUNT TO 6 

BR IF EAUAL TO 6. (NO JUSTIFY NEEDED) 

BR IF WE ARE ON EXTENSION 

SEE WHICH FILENAME WORD WE ARE ON 

BR IF NOT ON WORD BOUNDARY 

FUDGE CNTR TO ALLOW EXTENSION FILL 

GET EXTENSION CHARACTERS 

MULT CURRcNT WORD BY 50 

INC THE CONVERSION COUNTER 

KEEP IT UP UNTIL WE REACH A BOUNDARY 

LEFT JUSTIFY THE EXTENSION 

BR IF EXTENSION ALREADY JUSTIFIED 
BR TO JUSTIFY EXTENSION. 

MORE THAN 3 CHARACTERS 
ENTRY FOR FILENAME ERRORS 
REPLACE INPUT STRING POINTER 
SET C BIT. SKIP NEXT INSTRUCTION 
DISCARD SAVED INPUT STRING POINTER 





MOV 


#6.R2 




SUB 


R1.R2 




BEQ 


10$ 




BLT 


22$ 




CMP 


R2 . #3 




BNE 


20$ 




MOV 


#6.R1 




BR 


10$ 


20$: 


JSR 


PC. 60$ 




INC 


Rl ; 




BR 


30$ ; 


22$: 


NEG 


R2 




CMP 


R2.#3 




BEQ 


10$ 




BLT 


20$ 

.•ERROR. EXTENSION 


40$: 


TYPEHES 


#FLNMER..CR ; 




MOV 


(SP)*,R4 




CMP 


(PC)*. PC 


50$: 


TST 
;CLC 


(SP)* 




RTS 


PC 



[MULTIPLY (RO) BY 50 



ASL 
ASL 
ASL 
MOV 
ASL 
ASL 
ADD 
RTS 



(RO) 
(RO) 
(RO) 
(RO) 
(RO) 
(RO) 
(SP) 
PC 



(SP) 



(RO) 



:(R0) IS NOW MULTIPLIED BY 10 BASE 8 
:SAVE (RO) MULTILPIED BY 10 



(RO) NOW MULTIPLIED 
10X *40X = 50X 



BY 40 BASE 8 



.DSABL LSB 



012322 



ZZ-ESKAA-10.1 
V10-01-L 
LOAD A FILE 



4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 



LOAD A FILE 
MACRO V05.03 



K 7 



Friday 25-Apr-86 10:56 Page 50 



20-MAY-1986 



Fiche 1 Frame K7 



Sequence 88 



012322 
012324 
012332 
012334 
012336 
012344 

012346 
012352 
012356 
012360 
012366 
012370 
012372 
012400 
012402 
012406 
012412 
012422 
012424 

012430 
012436 
012442 
012446 



012452 
012456 
012462 
012464 
012466 
012470 
012474 
012500 
012502 
012506 
012512 
012520 



010005 
012767 
004712 
103004 
042767 
000207 

004767 
004767 
103767 
112767 
005715 
100010 
032767 
001404 
012700 
004767 

103745 
105067 

112767 
004767 
005067 
005067 



012667 
012667 
001564 
005715 
100040 
052714 
016700 
005001 
012702 
004767 
012737 
000423 



DOLOAD: 



000002 010166 



000020 023256 5$: 



176244 
176512 

000002 023033 



002000 023222 

017202' 
004526 



022772 

000001 010056 
174674 
010100 
010076 



010060 
010056 



000200 
024104 

000042 
176244 
000143 173031 



10$: 



20$: 



.SBTTL LOAD A FILE 

.ENABL LSB 

PERFORM A MAIN MEMORY OR UCS LOAD 

'EFFADR* HOLDS THE ADDRESS TO BEGIN LOADING AT 



IF LOADING UCS 

THEN IF MICRO CODE OPTION BITS ('MICOPT') 

THEN ONLY LOAD 2K MICRO WORDS 
ELSE LOAD ENTIRE FILE 



ARE CLEAR 



;R0--> 


'TCONTL' 


;R2--> 


•TSTRUN' 


MOV 


R0.R5 


MOV 


*2.LNHC0D 


JSR 


PC.(R2) 


BCC 


10$ 


BIC 


fNOSHOW.FLAG 


RTS 


PC 


JSR 


PC.TSTTY2 


JSR 


PC.TSTCST 


BCS 


5$ 


HOVB 


fLNGLNH.CURLNH 


TST 


(R5) 


BPL 


20$ 


BIT 


#USEDEF.FLAG 


BEQ 


20$ 


MOV 


lECONAM.RO 


JSR 


PC.SETFIL 


OPENS 


#FILENM 


BCS 


5$ 


CLRB 


CURADS 


;CLC 




MOVB 


fl.LODFLG 


JSR 


PC.STCLMP 


CLR 


BYTSLD 


CLR 


BYTSLD*2 




;(SP) IS START 




;2<SP> IS * OF 


MOV 


(SP)-.CURRSEC 


MOV 


(SP)-.SECSLF 


BEQ 


50$ 


TST 


(R5) 


BPL 


35$ 


BIS 


*R0MN0P.(R4) 


MOV 


EFFADR, RO 


CLR 


Rl 


MOV 


IHCSADD.R2 


JSR 


PC.WRITID 


MOV 


#WCSDAT! IDWRIT 


BR 


35$ 



POINT R5 TO 'TCONTL* 

SET MICRO-CODE LENGTH TO LONG WORD 

TEST FOR STAR CPU RUNNING 

BR IF NOT RUNNING 

CLEAR NOSHOW FLAG INCASE IT WAS SET 

EXIT 

CLEAR CODE 2 MICRO-ERRORS 

TEST FOR CLOCK STOPPED 

BR IF CLOCK IS STOPPED 

SET LOAD SIZE TO LONG WORD 

WCS LOAD? 

BRANCH IF NO 

LOAD THE ECO FILE? 

BRANCH IF NO 

SETUP TO OPEN ECO FILE 

OPEN INPUT FILE 

BR IF ERROR ON OPEN 

ASSUME PHYSICAL LOAD 

.-NOTE WE ARE LOADING A FILE (EDIT-21) 
; CLEAR MEMORY MAPPINGCDEPENDS ON C BIT) 



ING SECTOR 
SECTORS 

SAVE STARTING SECTOR 

SAVE * OF SECTORS 

BR IF FILE EMPTY 

TEST FOR A WCS LOAD 

BR IF NOT UCS LOAD 

SET ROM-NOP WHILE LOADING WCS 

RO GETS ADDRESS 

Rl IS UPPER ADDRESS BITS(ZERO) 

R2 IS ADDRESS OF 'WCSADD' ON IDBUS 

WRITE TO 'WCSADD' 
,a#IDCNTL .-ADDRESS WCS DATA REG. ENABLE WRITE 



012522 005767 010016 



3$ 



TST 



BYTSLF 



.•TEST FOR BLOCK BUFFER EMPTY 



ZZ-ESKAA-10. 
V10-01-L 
LOAD A FILE 



LOAD A FILE 
MACRO VC5.03 



L 7 



Friday 25-Apr-86 10:56 Page 50-1 



20-MAY-1986 



Fiche 1 Frame L7 



Sequence 89 



4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

"152 

4153 

4154 

4155 



012526 
012530 
012534 
012536 
012540 
012542 
012546 
012550 
012556 
012560 
012566 
012570 
012574 
012576 

012640 
012642 
012644 
012650 



012660 
012666 
012674 

012702 
012704 
012712 
012716 
012720 
012724 
012726 
012730 
012736 
012744 
012752 
012756 
012760 
012762 
012766 
012772 
012776 
013000 
013006 
013012 

013014 
013020 
013024 
013032 

013034 



003074 
105767 
001137 
005715 
100013 
105767 
001004 
022767 
101526 
022767 
101522 
005767 
003517 



103004 
012600 
004767 
000471 



022660 

037744* 

060000 007770 
110000 007760 
007744 



30$; 
35$ 

40$: 



000774 



012652 062767 000002 007656 42$: 



012767 
012767 
162767 

002006 
162767 
005267 
100772 
016701 
012100 
012101 
162767 
062767 
062767 
005567 
005715 
100415 
010067 
010167 
004767 
103416 
062767 
005567 
000643 

010037 
010137 
052737 
000633 



022600 
000400 
000002 



000200 
007622 

007616 



000004 
000004 
000004 
037572 



023574 
023572 
172414 

000004 
023574 



173020 
173022 
100000 



007654 
007650 
007636 



007632 



43$; 
44$: 



007606 
007576 
007574 



023576 



173030 



4$ 



50$: 



BGT 

TSTB 

BNE 

TST 

BPL 

TSTB 

BNE 

CMP 

BIOS 

CMP 

BLOS 

TST 

BLE 

F$READ 

BCC 
MOV 
JSR 
BR 

ADD 

MOV 
MOV 
SUB 



44$ 

ABORT 

50$ 

(R5) 

35$ 

MICOPT 

30$ 

#24576.. BYTSLD 

50$ 

#36864.. BYTSLD 

50$ 

SECSLF 

50$ 

CURRSEC.fUSRBUF. 

42$ 

(SP)-.RO 
PC.TYFLER 
50$ 



BR IF NOT EMPTY 

ABORT SET VIA CONTROL-C? 

BR IF YES 

WCS LOAD? 

''' \NCH IF NO 

MICRO CODE OPTIONS PRESENT? 

BRANCH IF YES (LOAD LIMIT IS 3K) 

LOADED 2K MICRO WORDS YET? 

BRANCH IF YES 

LOADED 3K MICRO WORDS YET? 

BRANCH IF YES 

TEST FOR INPUT FILf. EMPTY 

BR IF EMPTY 

#<USRBSZ/128.> 

FILL THE USER BUFFER 

BR IF NO ERRORS 

ERROR CODE TO RO 

TYPE ERROR MSG AND CODE 



#USRBUF.BUFFRP 
fUSRBSZ.BYTSLF 
#<USRBSZ/128.>, 



BGE 


44$ 


SUB 


#128..BYTSLF 


INC 


SECSLF 


BMI 


43$ 


MOV 


BUFFRP.R1 


MOV 


(R1)*.R0 


MOV 


(Rl)-.Rl 


SUB 


I4.BYTSLF 


ADD 


#4,BUFFRP 


ADD 


#4. BYTSLD 


ADC 


BYTSLD*2 


TST 


(R5) 


BMI 


4$ 


MOV 


RO.DATATO 


MOV 


Rl ,DATAT0*2 


JSR 


PC.LOADDE 


BCS 


50$ 


ADD 


#4,EFFADR 


ADC 


EFFADR*2 


BR 


3$ 



#<USRBSZ/128.>.CURRSEC 

rUPDATE CURRENT SECTOR # 
INIT BUFFER POINTER 
;SET BUFFER BYTE COUNT TO MAX 
.SECSLF 

DECREMENT NUMBER OF SECTORS LEFT TO LOAD 
;BRANCH IF DONE OR MORE TO LOAD 
DECREMENT BUFFER BYTE COUNTER BY ONE SECTOR 
;ONLY LOAD WHAT WAS IN THE FILE 

Rl" "POINTS TO BUFFER 



UPDATE BYTE COUNTER 

UPDATE BUFFER POINTER 

UPDATE NUMBER OF BYTES LOADED 

DECIDE WHERE THESE 4 BYTES GO 

BR IF THEY GO TO WCS 

PUT THIS LONG WORD INTO STAR MAIN MEMORY 

DO A DEPOSIT 

BR TO EXIT IF ERROR ON DEPOSIT 

UPDATE ADDRESS 



013034 004767 174342 



MOV RO.aiTOIDLO ;PUT DATA INTO 'TOID' REG 

MOV Rl.a#TOIDHI 

BIS #IDCYCL.a#IDCNTL .-START THE WRITE 

BR 3$ 

; REMEMBER 'ROMNOP* STILL SET IF WCS LOAD 

JSR PC.RESTMM ;RESTORE MEMORY MAPPING ENABLE 



ZZ-ESKAA-10.1 
V10-01-L 

LOAD A FILE 



LOAD A FILE 
MACRO V05.03 



M 7 



Friday 25-Apr-86 10:56 Page 50-2 



20-MAY-1986 



Fiche l Frame M7 



Sequence 90 



4156 


013040 








4157 


013046 


012700 


022546' 




4158 


01305? 


004767 


171726 




4159 


013056 


005715 






4160 


013060 


100411 






4161 


013062 


012701 


000004 




4162 


013066 








4163 


013070 








4164 


013074 








4165 


013102 


000444 






4166 










4167 










4168 










4169 


013104 


005060 


000002 




4170 


013110 


162710 


000014 




4171 


013114 


001404 






4172 


013116 


103405 






4173 


013120 


005260 


000002 




4174 


013124 


000771 






4175 


013126 


005260 


000002 




4176 


013132 


062700 


000002 




4177 


013136 


012701 


000002 




4178 


013142 








4179 


013144 








4180 


013150 








4181 


013156 


004767 


170470 




4182 


013162 


052767 


004000 


022432 


4183 


013170 


032767 


000020 


022424 


4184 


013176 


001006 






4185 


013200 


004767 


176220 




4186 


013204 


004767 


173556 




4187 


013210 


004767 


176110 




4188 


013214 


042767 


000020 


022400 


4189 


013222 


105067 


007266 




4190 


013226 


000207 






4191 










4192 










4193 










4194 










4195 










4196 


013230 








4197 


013230 


012767 


023200" 


007320 


4198 


013236 


012767 


000016 


007316 


4199 


013244 


012767 


000012 


007306 


4200 


013252 


105267 


007234 




4201 


013256 


000207 







TYPEMES #LOISDN..CR 
MOV fBYTSLD.RO 
JSR PC.R26RAD 
TST (R5) 
BMI 51$ 
MOV #4.R1 
CONVERT 
TYPEMES RO 
TYPEMES #BYTESL 
BR 60$ 



TYPE "LOAD DONE- 
SET POINTER TO BYTE COUNTER 
R2 GETS CURRENT RADIX VALUE 
LOADING WCS? 
BRANCH IF YES 
SET THE DATA LENGTH 

CONVERT STRING TO ASCII. RETURN PNTR IN RO 
TYPE t OF BYTES LOADED 
TYPE 'BYTES LOADED' 
EXIT 



51$ 
52$ 



53$; 
54$; 



60$; 



THIS HAS A WCS LOAD. CALCULATE THE NUMBER OF MICRO WORDS LOADED. 

SETUP TO CALCULATE t OF MICRO WORDS LOADED 
12 BYTES PER MICRO WORD 
BRANCH IF DONE 
BRANCH IF DONE 
UPDATE QUOTIENT 

COUNT THE LAST DIVIDE 

GET POINTER TO NUMBER OF MICRO WORDS LOADED 

SET THE DATA LENGTH 

CONVERT TO ASCII STRING 

TYPE NUMBER OF MICRO WORDS 

TYPE 'MICROWORDS LOADED* 

DO INIT ROUTINE 

REMEMBER HCS IS LOADED 

INHIBIT SHOWING VERSION? 

BRANCH IF YES 

GET PCS.WCS.FPLA VERSIONS 

SHOU VERSIONS 

CHECK FOR COMPATABILITY 

CLEAR NOSHOW FLAG INCASE IT WAS SET 

(EDI7-21 ) 



DOLINK 



CLR 


2(R0) 


SUB 


#12. .(RO) 


BEQ 


53$ 


BLO 


54$ 


INC 


2(R0) 


BR 


52$ 


INC 


2(R0) 


ADD 


#2.R0 


MOV 


#2.R1 


CONVERT 




TYPEMES 


RO 


TYPEMES 


#MICHSL 


JSR 


PC.INITRT 


BIS 


#WCSPRES,FLAG 


BIT 


#NOSHOW.FLAG 


BNE 


60$ 


JSR 


PC.GETVEJ? 


JSR 


PC.DOSHVR 


JSR 


PC.TSTVER 


BIC 


*NOSHOW,FLAG 


CLRB 


LODFLG 


RTS 


PC 


.DSABL 


LSB 


.SBTTL 


LINK COMMAND 


;SET UP 


COMMAND LINKI 


MOV 


fBUFO.INDBYT 


MOV 


#14..INDSEC 


MOV 


*10 . , INDLFT 


INCB 


LINKNG 


RTS 


PC 



INIT BUFFER POINTER 

INIT SECTOR PNTR TO LOGICAL SECTOR 14 
MAX OF 10 SECTORS USED FOR LINKING 
INITIATE LINKING 



ZZ-ESKAA-10.1 INDIRECT COMMAND LINE RETRIEVER 

VIO-Ol-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 51 

INDIRECT COMMAND LINE RETRIEVER 



N 7 



20-MAY-1986 



Fiche 1 Frame N7 



Sequence 91 



4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

422^* 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 



.SBTTL INDIRECT COMMAND LINE RETRIEVER 



013260 



013260 
013264 
013266 
013272 
013276 
013300 
013304 
013306 
013312 
013316 
013324 
013326 

013330 
013334 
013342 
013344 
013402 
013404 
013406 
013412 

013414 
013422 
013426 
013430 
013432 
013436 
013440 
013446 

013450 
013454 
013456 
013462 
013464 
013466 
013470 
013472 
013476 
0x3500 
013502 

013504 



012703 
010301 
016702 
020227 
002453 
005367 
002011 
012701 
004767 
042767 
000261 
000465 

012702 
026767 
001424 

103004 
012600 
004767 
000741 

016767 
005267 
112211 
001726 
020127 
002404 

000723 

122127 
001306 
010267 
160301 
003765 
110143 
010301 
004767 
105311 
000241 
000207 



INDLIN 



03o421' 

007264 
023400' 

007254 

022405' 

000166 

000200 022276 



023200* 
007222 007222 



5$: 

10$: 
11$: 

20$: 



000232 



007142 007142 
007134 



036541' 

0CC012 
007074 

000006 



25$: 
40$: 

49$: 
50$: 



ROUTINE 
INPUTS: 



OUTPUTS 
EFFECTS 



TO GET A COMMAND LINE FROrt A FLOPPY DISC FILE 

I^DSEC = CURRENT LOGICAL SECTOR OF INDIRECT FILE 

IfJDBYT = BYTE POINTER INTO CURRENT .OGICAL SECTOR 

.NDLFT = NUMBER OF SECTORS LEFT IN FILE 

C BIT SET IF FILE EMPTY OR FLOPPY ERROR 

IF <C BIT CLEAR> THEN <'TTYBUF' CONTAINS A COMMAND 

IF <END-OF-FILE DETECTED) THEN < "aEOF" IS PRINTED 



LINE> 

ON TERMINAL) 



80$ 



MOV 
MOV 
MOV 
CMP 
BLT 
DEC 
BGE 
MOV 
JSR 
BIC 
SEC 
BR 

MOV 

CMP 

BEQ 

F$READ 

BCC 

MOV 

JSR 

BR 

MOV 

INC 

MOVB 

BEQ 

CMP 

BLT 

TYPEMES 

BR 

CMPB 

BNE 

MOV 

SUB 

3LE 

MOVB 

MOV 

JSR 

DECB 

CLC 

RTS 



#TTYBUF-1,R3 

R3.R1 

INDBYT.R2 

R2.#BUF0*128. 

40$ 

I NDLFT 

20$ 

fEOFMES.Rl 

PC.INDECH 

fINDMOD.FLAG 

8C$ 

#BUF0.R2 

INDSEC.SECLOD 

25$ 

INDSEC.R2 

25$ 

(SP)-.RO 

PC.TYFLER 

11$ 

INDSEC.SECLOD 

INDSEC 

(R2)-.(R1) 

10$ 

R1.#TTYBUF*81. 

50$ 

*BADLIN,,CR 

11$ 

(Rl)*.#12 
5$ 

R2.INDBYT 

R3.R1 

49$ 

R1,-(R3) 

R3.R1 

PC.INDECH 

(Rl) 

PC 



POINT R3 TO COMMAND LINE 

DITTO Rl 

POINT R2 TO FLOPPY BUFFER 

TEST FOR CURRENT FLOPPY SECTOR DONE WITH 

BR IF MORE CHARACTERS IN CURRENT BUFFER 

MINUS ONE FROM t OF SECTORS LEFT 

BR IF ONE OR MORE SECTORS ARE LEFT 

Rl GETS PNTR TO '<aEOF>' MESSAGE 

TYPE IF NOT BOOTING 

DISABLE INDIRECT COMMAND MODE 

C BIT SET INDICATES FAILURE 



R2 GETS BUFFER PNTR 

SECTOR HE WANT ALREADY LOADED? 

BR AND SKIP READ IF YES 

READ NEXT SECTOR AND WAIT FOR COMPLETION OF READ 

BR IF NO ERROR ON READ 

RO GETS ERROR CODE 

TYPE ERROR MSG AND CODE 



REMEMBER SECTOR ME LOADED 

UPDATE CURRENT SECTOR t 

MOVE A CHARACTER FROM FLOPPY BUFFER TO TERMINAL BUFFER 

BR IF CHARACTER IS BLANK 

CHECK FOR TTY BUFFER OVERFLOW 

BR IF NOT OVERFLOWING BUFFER 

ERROR. TTY BUFFER OVERFLOW OR UNDERFLOW 



CHECK FOR END-OF-LINE(LINE FEED CHARACTER) 

BR IF NOT END-OF-LINE 

END-OF-LINE. SAVE CURRENT BUFFER POINTER. 

COMPUTE NUMBER OF CHARACTERS IN LINE 

BR IF LINE SIZE GOES TO ZERO OR NEGATIVE 

SAVE LENGTH OF LINE IN TTY BUFFER 

Rl GETS PNTR TO LINE FOR ECHO PURPOSES 

ECHO IF NOT BOOTING 

GET RID OF LINEFEED AT END OF LINE 

CLEAR C BIT TO INDICATE LINE WAS RETRIEVED SUCCESSFULLY 



INDECH: .-CONDITIONAL PRINTER FOR INDIRECT COMMAND FILE PROCESSING 

;IF<N0T B00TING> THEN <TtPE MESSAGE WHOSE ADDRESS IS IN Rl> 



7 Z-ESKAA-10.1 INDIRECT COMMAND LINE RETRIEVER 
VIO-Q'.-L MACRO V05.03 Friday 25-Apr-P6 10:56 
INDI°ECT COMMAND LINE RETRIEVER 



B 8 



Page 51-1 



20-MAY-1986 



Fiche 1 Frame B8 



Sequence 92 



4258 


013504 


105767 


4259 


013510 


001002 


4260 


01S512 




4261 


013M6 


000207 



007001 



90$: 



TSTB NOECHO 

BNE 90$ 

TYPEMES R1..CR 

RTS PC 



,-ECHO SUPPRESSED? 
;BR IF YES 



ZZ-ESKAA-10.1 OPEN FILE. TYPE FLOPPY ERROR MESSAGE 
VIO-Ol-L MACRO V05.03 Friday 25-Apr-86 10:56 
OPEN FILE. TYPE FLOPPY ERROR MESSAGE 



C 8 



Page 52 



20-MAY-1966 



Fiche 1 Frame C8 



Sequence 93 



4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 



013520 



013520 
013526 
013534 
013536 
013544 
013546 
013550 
013554 
013560 
013562 
013564 

013566 
013574 
013576 
013604 
013612 
013616 

013620 
013620 
013624 
013626 
013634 

013636 
013642 

013644 

013644 
013652 
013652 
013656 
013662 
013666 
013672 
013676 
013700 



013702 
013704 
013706 



016667 
032767 
001014 

103014 
012600 
004767 
011666 
005726 
000261 
000414 



103764 
016666 
016666 
012666 
000207 



020027 
001004 

000402 



110067 
012746 
012746 
012746 
004767 

000207 



022546' 
022550' 
022552 



OPENER: 



000002 
000040 



000044 
000002 



007026 
021644 



5$: 



000002 
000004 
000002 



000002 



000006 
000002 



15$: 
20$: 

30$: 
TPERRM: 



004767 0000n2 
000207 



006631 

022507' 

000001 

000020 

140022' 



10$: 
20$: 

TYFLEP 



TYPERC 



.SBTTL OPEN FILE. TYPE FLOPPY ERROR MESSAGE 

ROUTINE TO OPEN A FLOPPY FILE ON DRIVE OR 1 
INPUTS: 'DXIFLG* = 1 IF DRIVE 1 IS TO BE USED 

FILENAME POINTER ON STACK AT 2 (SP) 
OUTPUTS: C BIT SET IF OPEN FAILS(ERROR IS PRINTED) 

C BIT CLEAR IF OPEN OK. AND (SP) = STARTING 



MOV 2(SP).FILPNT 

BIT IDXIFL^.TCONTL 

BNE 15$ 

F$OPEN FILPNT 

3CC 20$ 

MOV (SP)*.R0 

JSR PC. TPERRM 

MOV (SP).2<SP) 

TST (SP)* 

SEC 

BR 30$ 

F$0PN1 FILPNT 

BCS 5$ 

MOV 2(SP).6(SP) 

MOV 4(SP).2(SP) 

MOV (SP)*.2(SP) 

RTS PC 

:TY ERROR MESSAGE. 

CMP R0.#$FNF 

BNE 10$ 
TYPEMES #NOSUFL..CR 

BR 20$ 



2(SP) = # OF SECTORS IN FILE 
SET FILE NAME POINTER 
DETERMINE PROPER DRIVE TO USE 
BR IF DRIVE 1 
OPEN FILE ON DRIVE 
BR IF FILE FOUND 
ERROR CODE TO RO 
TYPE ERROR MESSAGE 
CLEAR STACK 

C BIT SET INDICATES OPEN FAILED 



SECTOR 



OPEN FILE ON DRIVE 1 
BR IF ERROR ON OPEN 
RETURN STARTING SECTOR 



AND t OF SECTORS ON STACK 



JSR 
RTS 



PC.TYFLER 
PC 



FILE NOT FOUND? 

BR IF NO 

TYPE 'FILE NOT FOUND* 



,-TYPE ERROR MESSAGE AND CODE 



.•ROUTINE TO TYPE FLOPPY ERROR MESSAGE AND CODE t 
:RO=CODE t OF ERROR 

TYPEMES JFLPERR..CR .-TYPE <CRLF ><TAB>?FLOPPY ERR. CODE 
.•ROUTINE TO TYPE THE ERROR TODE IN RO 



MOVB 


RO.ERRCCD 


MOV 


#ERRCCD.-(SP*« 


MOV 


#1 .-(SP) 


MOV 


*16..-(SP) 


JSR 


PC.CONVRT 


TYPEMES 




RTS 


PC 


.-POINTER ARRAY 




FILTAB: .WORD 


FILENM 


.WORD 


FILENM+2 


.WORD 


EXTENS 



ZZ-ESKAA-10.1 

V10-01-L 

TIMEOUT/ODD 



D 8 



TIMEOUT/ODD ADDRESS TRAP CATCHER 
MACRO V05.03 Friday 25-Apr-86 10:56 
ADDRESS TRAP CATCHER 



Page 53 



20-MAY-1986 



Fiche 1 Frame D3 



Sequence 94 



4316 
4317 
4318 
4319 
4320 
4321 
4322 



013710 
013714 
013720 
013734 



012706 
012746 



001000 
123456 



000167 165274 



.SBTTL TIMEOUT/ODD ADDRESS TRAP CATCHER 

ODDADD: MO\< *1000,SP .-RESET STACK POINTER 

HOV #123456. -(SP) ;THIS MILL PREVENT INIT AND UCS E:0 LOAD 

TSWRIT #TIMTRP.#TIMEND-TIMTRP .-PRINT 7TRAP-4. RESTARTING CONSOLE 

JMP RESTRT ;RESTART CONSOLE PROGRAM 



ZZ-ESKAA-10. 

V10-01-L 

TIMEOUT/ODD 



4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 



1 TIMEOUT/ODD ADDRESS TRAP CATCHER 

HACRO V05.03 Friday 25-Apr-86 10:56 
ADDRESS TRAP CATCHER 



;NOTE: 



E 8 



Page 54 



20-MAY-1986 



Fiche 1 Frame E8 



Sequence 95 



013740 
013742 
013744 
013746 
013746 
013754 
013756 
013764 

013766 
013770 
013772 
, 3772 
014000 
014002 
014010 

014012 
014012 
014014 
014016 
014020 



014022 
014022 
014026 
014030 
014032 
014036 

014040 
014040 
014044 
014046 
014050 
014054 
014056 
014064 
014072 



ON ENTRY TO THESE ROUTINES: 
R0-->'TCONTL' 



005721 
005721 
005721 

132767 
001403 
056167 
000207 

005721 
005721 

132767 
G01403 
046167 
000207 



002000 
001000 
000000 
000000 



105767 
001013 
005201 
110167 
000207 



105767 
001004 
005201 
110167 
000207 



000207 



000002 037750 
014012* 021546 



000002 037750 
014012* 021522 



022572 
022136 

022130 
022544 



ENLOCN: 
ENLOCO: 
ENECHO: 
DSCLER; 



10$: 

DSLOCO: 
DSECHO: 
ENCLEP: 



10$: 
BITTAB: 



DSFLOP; 



ENFLOP 



R1=0 



THESE CONDITIONS SET BY 'EXECUT* 



;!!'!!!!!DO NOT REORDER ANY OF THESE ROUTINE ENTRIES 

.-SINCE THEY MATCH UP TO SPECIFIC ENTRIES IN THE TABLE 'BITTAB* 

TST (Rl)* :ENABLE LOCAL CONTROL 

TST (Rl)* .-ENABLE LOCAL COPY 

TST (Rl) + .-ENABLE REMOTE ECHO 

.-ENTRY FOR DISABLE CARRIER LOSS ERROR MESSAGE 

BITB fREMOT.LASPOS .-IN REMOTE MODE? 

BEQ 10$ ;BR IF NOT. AND NULLIFY COMMAND 

BIS BITTAB(R1).TCTFLG ;SET APPROPRIATE BIT OF TERMINAL CONTROL FLAG 

RTS PC 

TST (Rl)* ;DISABLE LOCAL COPY 

TST (Rl)* .-DISABLE REMOTE ECHO 

.-ENTRY FOR ENABLE CARRIER ERROR MESSAGE 

BITB fREMOT.LASPOS ;IN REMOTE MODE? 

BEQ 10$ ;BR IF NOT. NULLIFYING COMMAND 

BIC BITTAB(R1).TCTF|_G ;CLEAR PROPER BIT OF TERMINAL 

RTS PC 



CONTROL FLAG 



.-TABLE OF BIT VALUES FOR FLAGS IN 'TCTFLG* (TERMINAL CONTROL FLAG) 



WORD DISCAR 

.WORD REFECH 

.WORD LOCCOP 

.WORD LOCCNT "LOCCOP 



DISABLE CARRIER LOSS ERROR BIT 

REMOTE ECHO ENABLE BIT 

LOCAL COPY ENABLE BIT 

ENABLE LOCAL CONTROL BIT & LOCAL COPY 



.ENABL LSB 
.-ROUTINE TO 



TSTB 

BNE 

INC 

MOVB 

RTS 



ENABLE/DISABLE LOCAL FLOPPY DRIVE 



ALLOC 

20$ 

Rl 

Rl.ALLREM 

PC 



REMOTE DISABLED ALREADY? 

TYPE ERROR 

ENTRY TO DISABLE LOCAL FLOPPY 

ENTRY TO ENABLE LOCAL FLOPPY DRIVE 



DSREMT: .-ROUTINE TO ENABLE/DISABLE REMOTE 'FLOPPY' 



ENREMT 

20$: 
25$: 



TSTB 

BNE 

INC 

MOVB 

RTS 

TYPEMES 

TYPEMES 

RTS 



ALLREM 

20$ 

Rl 

Rl. ALLOC 

PC 

#DISERR..CR 

#CANTDO 

PC 



.-LOCAL DISABLED ALREADY? 

.-TYPE ERROR 

;MARK FOR DISABLE 

;SET ENABLE/DISABLE FLAG 

.-TYPE ERROR MESSAGE 
.-TYPE 'FUNCTION ABORTED' 



ZZ-ESKAA-10.1 
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APT 'X' COHMAND EXECUTION 

MACRO V05.03 Friday 25-Apr-86 10:56 

EXECUTION 



F 8 



Page 55 



20-MAY-1986 



Fiche 1 Frame F8 



Sequence 96 



4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 



014074 



DOXLOA: .SBTTL APT 'X' COMMAND EXECUTION 



THIS ROUTINE 
REFER TO MID 



PERFORMS A BINARY DUMP TO 11/780 MEMORY 
RANGE CONSOLE SPEC. FOR 'X' COMMAND DETAILS 



THE COMMAND IS ONLY VALID IF THE PROGRAM HAS LOADED BY APT 
AND THE CPU IS HALTED. DUE TO THE SLOWNESS OF COMMAND PARSING 
THE COMMAND CHECKSUM HILL BE RECEIVED (AND THEREFORE BE PROCESSED 
BY THE REMOTE INTERRUPT SERViCE ROUTINE) BEFORE THIS ROUTINE IS 
CALLED. THEREFORE. THE INTERRUPT SERVICE ROUTINE PLACES ALL 
CHARACTERS IN LOCATION 'XCMDSV AND BY THE TIME THIS ROUTINE IS 
CALLED. THE COMMAND CHECKSUM WILL BE THERE. 

ALSO. ALL ERROR MESSAGES FROM THE MEMORY DEPOSIT ROUTINE ARE 
SUPPRESSED SINCE APT WOULDN'T KNOW WHAT TO DO WITH THEM. THEREFORE. 
THERE IS NO CHECK THAT THE DATA WAS DEPOSITED CORRECTLY. 

IMPLICIT INPUTS: 

COUNT - CONTAINS THE NUMBER OF BYTES TO DEPOSIT 
EFFADR- CONTAINS THE START ADDRESS OF THE ADDRESS 
XCMDSV- CONTAINS THE RECEIVED CHECKSUM OF THE COMMAND 



014074 
014100 
014102 
014110 

014112 
014116 
014120 
014124 
014130 
014132 



105767 
001004 

000765 

004767 
103476 
105077 
012701 
112100 
005003 



037747 



175C06 

037766' 
036420' 



TSTB APTLOD 

BNE 30$ 

TYPEMES #NOTREM,,CR 

BR 25$ 



30$; 



JSR 

BCS 

CLRB 

MOV 

MOVB 

CLR 



PC.TSTRUN 

40$ 

aRMRCSR 

*TTYBUF,R1 

(R1)*.R0 

R3 



DID APT LOAD US ? 

BR IF SO 

NO REMOTE ACCESS 

FINISH ERROR MSG AND EXIT 

CPU RUNNING? 

EXIT. IF SO 

CLEAR RECEIVER INT. ENABLE 

Rl GETS INPUT LINE ADDRESS 

RO GETS NUMBER OF BYTES IN BUFFER(EDIT 4-05) 



4418 


014134 


112102 




5$: 


MOVB 


(RD-.R2 


.-GET CHAR 


4419 


014136 


060203 






ADD 


R2.R3 


.•ADDITIVE CHECKSUM 


4420 


014140 


105300 






DECB 


RO 


; DECREMENT THE BYTE COUNT 


4421 


014142 


002374 






BGE 


5$ 


;END OF BUFFER? COUNT THE CARRIAGE RETURN ALSO 


4422 














.-EDIT 4-05 


4423 


014144 


016701 


037766' 




MOV 


RMRCSR.R1 


;R1 GETS TERMINAL BUFFER ADDRESS 


4424 
















4425 


014150 


116702 


022606 


45$: 


MOVB 


XCMDSV. R2 


; GET THE CHECKSUM CHARACTER 


4426 


014154 


060203 






ADD 


R2.R3 


; ADD TO COMMAND CHECKSUM 


4427 


014156 


105703 






TSTB 


R3 




4428 


014160 


001047 






BNE 


90$ 


.•COMMAND CHECKSUM ERROR 


4429 
















4430 


014162 


012746 


022414' 


10$: 


MOV 


#CCNPMP.-'SP) 


;TYPE CONSOLE PROMPT ?S 'ACK' 


4431 


014166 








TYPEMES 






4432 


014170 


005003 






CLR 


R3 


;R3 IS NEW CHECKSUM 


4433 


014172 


112767 


000001 021212 




MOVB 


fl .DEEXBY 


;SET FOR DEPOSIT(NON-ZERO) 


4434 


014200 


105067 


021215 




CLRB 


CURLNH 


.-SET CURRENT DATA LENGTH AS 1 BYTE 


4435 
















4436 


014204 


105711 




15$: 


TSTB 


(Rl ) 


;GOT DATA CHAR YET? 



ZZ-ESKAA-10.1 

V10-01-L 

APT 'X' COMMAND 



APT *X" COMMAND EXECUTION 
MACRO V05.03 Friday 25-Apr-86 
EXECUTION 



6 8 



10:56 Page 55-1 



20-MAY-1986 



Fiche 1 Frame G8 



Sequence 97 



4437 


014206 


100376 






BPL 


15$ 


4438 














4439 


014210 


116167 


000002 022344 




MOVB 


2(R1).DATAT0 


4440 


014216 


C66703 


022340 




ADD 


DATAT0.R3 


4441 


014222 


005367 


021160 




DEC 


COUNT 


4442 


014226 


100417 






BNI 


35$ 


4443 


014230 


010146 






MOV 


Rl.-(SP) 


4444 


014232 


005067 


021146 




CLR 


NEXTCT 


4445 


014236 


012746 


014250" 




MOV 


#50$. -(SP) 


4446 


014242 


004067 


171174 




JSR 


RO.MICAST 


4447 


014246 


000440 






.WORD 


CPHYSE 


4448 


014250 


062767 


000001 022326 


50$: 


ADD 


ll.EFFADR 


4449 


014256 


005567 


022323 




ADC 


EFFADR-1 


4450 


014262 


012601 






MOV 


(SP)-.Rl 


4451 


014264 


000747 






BR 


15$ 


4452 














4453 


014266 


105703 




35$: 


TSTB 


R3 


4454 


014270 


001411 






BEQ 


40$ 


4455 


014272 


012746 


022157' 




MOV 


#XERR2.-(SP) 


4456 


014276 


000402 






BR 


95$ 


4457 














4458 


014300 


012746 


022146* 


90$: 


MOV 


IXERRI.-(SP) 


4459 


014304 






95$: 


TYPEMES 




4460 


014306 








TYPEMES 


IXERR3 


4461 


014314 


052711 


000100 


40$: 


BIS 


IRCVINT.(RI) 


4462 


014320 


105067 


022435 




CLRB 


XLOFLG 


4463 


014324 


000207 






RTS 


PC 


4464 














4465 










.DSABL 


LSB 


4466 














4467 




000366 






APTRTN: 


.-ENLOCN 


4468 















;GET BYTE TO DEPOSIT FROM RBUF 
.•ADDITIVE CHECKSUM 

MORE TO DEPOSIT? 

SAVE Rl 

SET FOR ONE DEPOSIT ONLY (NO 'NEXT') 

PUSH RETURN PC 

DO THE DEPOSIT 

POINTER TO MICROCODE ROUTINE 

INCREMENT THE ADDRESS 

RESTORE Rl 
IGNORE ANY ERRORS 



.•CHECKSUM VALID? 
.•DATA CHECKSUM ERROR 



.-COMMA*? CHECKSUM ERROR 




<*«* IVER INTERRUPTS 
. yU NG-X' FLAG 



.-USED TO COMPUTE SIZE OF APT RELATED FUNCTIONS 



ZZ-ESKAA- 


10.1 


V10-01-L 


V10-01-L 




MACRO V05.03 


4470 






4471 






4472 






4499 






4500 






4544 




■- 


4545 






4546 






4547 






4548 




000002 


4549 




000004 


4550 




000005 


4551 




000006 



H 8 

20-MAY-1986 Fiche 1 Frame H8 Sequence 98 
Friday 25-Apr-86 10:56 Page 56 

.SBTTl 

.SBTTL PARSING TABLES AND ACTIONS 



.•NODE OFFSET DEFINITIONS 

;INFO=0 

ACTIONS 

YESLINK=4 

N0LINK=5 

MN0SIZ=6 .-EACH NODE IS 6 BYTES LONG 



ZZ-ESKAA-10.1 
V10-01-L 



VIO-Ol-L 
MACRO VO5.03 



I 8 



Friday 25-Apr-86 10:56 Page 57 



2Q-MAY-1986 



Fiche 1 Frame 18 



Sequence 99 



4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4565 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
459G 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 



014326 



RECOG; 



014326 
014332 
014334 
014340 
014342 
014346 
014350 
014352 
014356 
014360 
014362 

014364 
014366 
014370 
014374 
014376 
014402 
014404 
014406 
014410 



004767 
103003 
020527 
001525 
121427 
001021 
005204 
020527 
001002 
010503 
000761 

010346 
010546 
012705 
010503 
004767 
012605 
012603 
103505 
000746 



000272 

016410* 

000057 



016410' 



IS: 



4$: 



.SBTTL 

.SBTTL PARSER 

SEE IF AN ASCII STRING CAN BE RECOGNIZED AS A COMMAND 
INPUTS: R3-->A NODE OF A SYNTAX CHECK TREE 

R4-->ASCII STRING 

R5-->R00T NODE OF SYNTAX TREE BEING USED 

R0.R1.R2 ARE SCRATCH PADS 
OUTPUTS: C BIT SET IF ASCII STRING IS NOT A RECOGNIZED COMMAND 

EFFECTS: IF THE NEXT LEXEME IN THE INPUT STRING IS EQUIVALENT 

TO THE STRING POINTED TO BY INF0CR3) . THE ACTION ASSOCIATED WITH 

THE CURRENT NODE IS PERFORMED. AND R3 IS UPDATED 

TO POINT TO THE NEXT NODE VIA THE YESLINK(R3 ) . 

R4 IS UPDATED TO POINT TO THE NEXT CHARACTER IN 

THE INPUT STRING PAST THE PART OF THE STRING THAT 

HAS RECOGNIZED. 

IF THE NEXT LEXEME IN THE INPUT STRING IS NOT EQUIVALENT 
TO THE STRING POINTED TO BY INF0(R3).R3 IS UPDATED TO 
POINT TO THE NEXT NODE VIA THE N0LINK(R3). 
R4 IS UNCHANGED. 

IN EITHER CASE, THIS PROCESS CONTINUES UNTIL R3 = . 

;IF <R3=0 AND RECOGNITION FAILED> THEN <RETURN WITH C BIT SET> 

ELSE <RETURN WITH C CLEAR> 

SPECIAL EFFECTS: 

IF THE NEXT LEXEME IN THE INPUT STRING IS A QUALIFIER. THE CURRENT NODE 
POINTER IS SAVED. AND REPLACED BY A POINTER TO THE ROOT OF THE QUALIFIER 
TREE. THEN THIS ROUTINE CALLS ITSELF TO PROCESS THE QUALIFIER. 
.ENABL LSB 

THROU AWAY LEADING BLANKS IN THE INPUT STRING 

BR IF NO LEADING BLANKS 

SEE IF WE ARE PROCESSING A QUALIFIER 

BR IF WE ARE(A BLANK IS END OF A QUALIFIER) 

TEST FOR A SLASH IN INPUT STRING 

BR IF NOT A SLASH 

POSITION INPUT STRING POINTER PAST THE SLASH 

SEE IF WE ARE ALREADY PROCESSING A QUALIFIER 

BR IF NOT 



2$: 



016410' 
177724 



JSR 


PC.REMlEA 


BCC 


4$ 


CMP 


R5.#QALTRE 


BEQ 


60$ 


CMPB 


(R4),*V 


BNE 


5$ 


INC 


R4 


CMP 


R5.IQALTRE 


BNE 


2$ 


MOV 


R5.R3 


BR 


1$ 


MOV 


R3.-(SP) 


MOV 


R5.-CSP) 


MOV 


1QALTRE.R5 


MOV 


R5.R3 


JSR 


PC. RECOG 


MOV 


(SP)*.R5 


MOV 


(SP)*.R3 


BCS 


NULL 


BR 


1$ 



SAVE CURRENT NODE POINTER 

AND TREE ROOT POINTER 

R5 GETS POINTER TO ROOT OF 

R3 LIKEWISE 

RECOGNIZE THE QUALIFIER 

RESTORE POINTERS 

BR IF ERROR ON QUALIFIER 

CONTINUE IN MAINTREE 



QUALIFIER TREE 



ZZ-ESKAA- 

V10-01-L 

PARSER 

4608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 



10.1 



014412 
014416 
014420 
014424 
014426 
014430 
014434 
014436 
014440 

014442 
014446 

014450 
014452 
014456 
014460 
014464 
014466 
014472 
014476 
014500 

014502 
014506 
014510 
014512 
014516 
014522 
014524 

014526 
014532 
014534 
014540 

014542 
014546 
014550 

014552 
014556 
014562 

014564 
014570 
014572 
014576 
014600 

014602 
014604 
014610 
014614 



PARSER 
MACRO V05.03 



J 8 



Friday 25- 



20-MAY-1986 



Fiche 1 Frame J8 



105763 
100443 
105763 
100011 
011346 
017602 
001002 
005726 
000412 

062716 
000401 

011302 
004767 
103011 
105763 
100761 
116300 
004767 
103713 
000447 

105763 
100G21 
161316 
162716 
066316 
013600 
000414 

105763 
100003 
004773 
000402 

004767 
103016 
000746 

016300 
012702 
005001 

032700 
001404 
042700 
010012 
000401 

004710 
116300 
004767 
103644 



000005 
000004 

000000 

000002 

000232 

000004 

000005 
000152 

000004 



000002 
000002 



0000u4 

oooono 

000340 



000002 
035416' 



000001 
000001 



000004 
000044 



Apr-86 


10:56 


Page 57-1 


5$: 


TSTB 


N0LINK(R3) 




BMI 


50$ 




TSTB 


YESLINK(R3> 




BPL 


7$ 




MOV 


(R3).-(SP) 


6$: 


MOV 


a(SP).R2 




BNE 


61$ 




TST 


(SP)* 




BR 


10$ 


61$: 


ADD 


#2.(SP) 




BR 


8$ 


7$: 


MOV 


(R3).R2 


8$: 


JSR 


PC.RECSTR 




BCC 


20$ 




TSTB 


YESLINKCR3) 




BMI 


6$ 


10$: 


MOVB 


NOLINK(R3).RO 




JSR 


PC.COMPNX 




BCS 


1$ 




BR 


70$ 


20$: 


TSTB 


YESLINK(R3) 




BPL 


23$ 




SUB 


(R3).(SP) 




SUB 


#2.(SP) 




ADD 


ACTI0N(R3).(SP) 




MOV 


a(SP)*.R0 




BR 


24$ 


50$: 


TSTB 


YESLINK(R3) 




BPL 


55$ 




JSR 


PC.a(R3) 




BR 


59$ 


55$: 


JSR 


PC.RECNUM 


59$: 


BCC 


25$ 




BR 


10$ 


23$: 


MOV 


ACTI0N(R3).R0 


24$: 


MOV 


*UHATT0D0,R2 




CLR 


Rl 




;CLC 






BIT 


fl.RO 




BEQ 


26$ 




BIC 


fl.RO 




MOV 


R0.(R2) 




BR 


25$ 


26$: 


JSR 


PC.(RO) 


25$: 


MOVB 


YESLINKCR3) ,R0 




JSR 


PC.COMPNX 




BCS 


1$ 



Sequence 100 



SEE IF RECOG NUMBER OR ASCII STRING TO RECOGNIZE 

BR IF NUMBER TO RECOGNIZE 

SEE IF ONE STRING OR LIST OF STRINGS TO CHECK 

BR IF JUST ONE STRING 

PROCESS A LISKSAVE POINTER) 

R2 GETS POINTER TO A CHECK STRING 

BR IF MORE TO CHECK 

REMOVE POINTER FROM STACK 



.•POINT TO NEXT STRING POINTER FOR NEXT PASS 



;R2 GETS POINTER TO CHECK STRING 

.-CHECK INPUT STRING AGAINST CHECK STRING 

;BR IF STRING HAS RECOGNIZED 

.-ARE WE PROCESSING A LIST OF STRINGS? 

;BR IF WE ARE 

;SET R3 TO ADDRESS OF NEXT NODE VIA 'NOLINK' 
;BR IF NOT AT A TREE FRONTIER 



;ARE HE PROCESSING A LIST? 
;BR IF WE ARE NOT 



;R0 GETS ACTION RTN POINTER 



CHECK FOR A SPECIAL TEST 
BR IF NOT A SPECIAL TEST 
PERFORM A SPECIAL TEST ROUTINE 



;TRY TO RECOGNI7E A NUMBER 
;BR IF RECOGNIZED 



RO GETS ACTION ROUTINE POINTER 

R2 GETS HANDY POINTER FOR ACTION ROU1INES 

PI CLEAR IS REQUIRED FOR SOME ACTIONS 

C BIT CLEAR ALSO REQUIRED FOR SOME ACTIONS 

ACTION POINTER 'ODD'? 

BR IF NOT 

MAKE POINTER EVEN 

SAVE ROUTINE POINTER 



ACTION 



ROUTINE 



DO THE 

UPDATE CURRENT NODE POINTER VIA 
R3 GETS ADDRESS OF NEXT NODE 
BR IF NOT AT TREE FRONTIER 



YESLINK 



K 8 
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V10-01-L MACRO V05.03 Friday 25-Apr-86 10:5* Page 57-2 
PARSER 

4663 014616 005727 60$: TST (PC)* .-CLEAR C BIT 

4664 014620 000261 70$: SEC 

4665 014622 000207 NULL: JITS PC 
4666 

4667 .DSABL LSB 



ZZ-ESKAA-10.1 REMOVE BLANKS. COMPUTE NEXT NODE ADDRESS 
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REMOVE BLANKS. COMPUTE NEXT NODE ADDRESS 



L 8 



20-MAY-1986 



Fiche 1 Frame L8 



Sequence 102 



4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 



014624 



014624 
014626 
014632 
014634 
014636 
014640 

014642 
014646 
014650 

014652 
014654 
014656 

014660 



005046 
121427 
001003 
005204 
005216 
000772 

121427 
001772 
005726 

001401 
000261 
000207 



000040 



000011 



REMLEA; 



10$: 
20$: 



30$ 



35$: 
COMPNX; 



014660 005003 



014662 
014666 
014670 
014674 
014676 
014700 
014702 
014704 
014706 



042700 
001407 
012701 
060003 
005301 
003375 
060503 
000261 
000207 



177600 
000006 



40$ 



50$ 



.SBTTL REMOVE BLANKS .COMPUTE NEXT NODE ADDRESS 

REMOVE LEADING BLANKS FROM A STRING 
R4-->STRING 

R4-->FIRST CHARACTER NOT A BLANK(SPACE OR TAB) 
C BIT SET IF A LEAST ONE LEADING BLANK REMOVED 
.•CREATE A FLAG FOR LEADING BLANKS 
;CHECK FOR A SPACE 
;BR IF NOT A SPACE 

.•REMEMBER A BLANK SEEN 



.•CHECK FOR A TAB 

;BR IF A TAB 

.•CHECK FOR FLAG SET 

;BR IF NO LEADING BLANKS REMOVED 



COMPUTE ADDRESS OF NEXT NODE OF CURRENT TREE 
RO=NODE # OF NEXT NODE(0 IF TREE FRONTIER REACHED) 
R5=P0INTER TO ROCR OF CURRENT TREE 
OUTPUTS : 

C BIT CLEAR IF TREE FRONTIER REACHED. AND R3 IS CLEAR 

ELSE: R3 POINTS TO NEXT TREE NODE 

RO AND Rl ARE NOT PRESERVED 

.-CLEAR CURRENT NODE POINTER 

.•CLEAR UPPER BIT OF LOWER BYTE OF RO 
;Bf? IF TREE FRONTIER REACHED 

;R1 GETS THE SIZE OF A NODE IN BYTES 

;R3 GETS NODE #(R0) TIMES NODE SIZE(Rl) 

;ADD IN TREE ROOT ADDRESS 



.-OUTPU 
CLR 


TS: 
-(SP) 


CMPB 


(R4).#* 


BNE 


30$ 


INC 


R4 


INC 


(SP) 


BR 


10$ 


CMPB 


(R4) .#11 


BEQ 


20$ 


TST 


(SP)* 


;CLC 




BEQ 


35$ 


SEC 




RTS 


PC 



CLR 


R3 


;CLC 




B1C 


#177600. RO 


BEQ 


50$ 


MOV 


#MN0SIZ.R1 


ADD 


R0.R3 


DEC 


Rl 


BGT 


40$ 


ADD 


R5.R3 


SEC 




RTS 


PC 
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M 8 



20-MAY-1986 



p iche 1 Frame M8 



Sequence 103 



4711 






4712 






4713 






4714 






4715 


014710 




4716 






4717 






4718 






4719 






4720 


014710 


010446 


4721 


014712 


004767 


4722 


014716 


103407 


4723 


014720 


121412 


4724 


014722 


001025 


4725 


014724 


005204 


4726 


014726 


000425 


4727 






4728 


014730 


120114 


4729 


014732 


001021 


4730 


014734 


122224 


4731 


014736 


111201 


4732 


014740 


100373 


4733 


014742 


112201 


4734 


014744 


100405 


4735 


014746 


004767 


4736 


014752 


103013 


4737 


014754 


005204 


4738 


014756 


000773 


4739 






4740 


014760 


004767 


4741 


014764 


103006 


4742 


014766 


042701 


4743 


014772 


120124 


4744 


014774 


001762 


4745 


014776 


012604 


4746 


015000 


022707 


4747 


015002 


005726 


4748 






4749 


0150C4 


000207 


47S0 






4751 







RECSTR 



000070 



.SBTTL RECOGNIZE A STRING OF ASCII CHARACTERS 
.ENABL LSB 

;R4-->INPUT STRING 

;R2-->CHECK STRING 

.•OUTPUTS: 

C BIT CLEAR IF STRING RECOGNIZED. R4 POINTS TO NEXT PART OF STRING 

C BIT SET IF STRING NOT RECOGNIZED. R4 UNCHANGED 

R4.-(SP) 



MOV 

JSR 

BCS 

CMPB 

BNE 

INC 

BR 



PC.TESTND 

30$ 

(R4).(R2) 

NCMATC 

R4 

MATCH 



000034 



000022 
177600 



10$: 

20$: 
30$: 

40$: 

50$: 



60$: 

NOMATC 
MATCH: 



CMPB 


R1,(R4) 


BNE 


NOMATC 


CMPB 


(R2)*.(R4)+ 


MOVB 


(R2).R1 


BPL 


10$ 


HOVB 


(R2)-.R1 


BMI 


6\i% 


JSR 


PC.TESTND 


BCC 


MATCH 


INC 


R4 


BR 


50$ 



JSR 

BCC 

BIC 

CMPB 

BEQ 

MOV 

CMP 

TST 

:CLC 

RTS 



PC.TESTND 
MATCH 
#177600 .Rl 

R1.(R4)* 

40$ 

(SP)-.R4 

CPO+.PC 
(SP)* 

PC 



TEST FOR A DELIMITER 

BR IF IT HAS NOT A DELIMITER 

SEE IF CHECK STRING HAS LOOKING FOR A DELIMITER 

BR IF IT HAS N0T(TAKE NO MATCH EXIT) 

UPDATE INPUT STRING POINTER PAST DELIMITER 

TAKE MATCH EXIT 

COMPARE INPUT TO CHECK STRING 

BR IF THEY ARE DIFFERENT(NO MATCH) 

ADD 1 TO BOTH STRING POINTERS 

CHECK FOR FIRST 'FENCE' IN CHECK STRING. 

BR IF NOT AT FIRST FENCE YET 

TEST FOR SECOND FENCE IN CHECK STRING 

BR IF NOT AT SECOND FENCE 

CHECK FOR A DELIMITER IN INPUT STRING 

BR TO HATCH EXIT IF DELIMITER SEEN 

UPDATE INPUT SIRING POINTER 

KEEP IT UP UNTIL INPUT STRING POINTER TO NEXT DELIMITER 

CHECK FOR A DELIMITER IN INPUT STRING 

BR IF DELIMITER TO MATCH EXIT 

CLEAR UPPER BITS OF Rl 

CHECK INPUT AGAINST CHECK STRING 

BR IF EQ.UAL. KEEP CHECKING 

NO MATCH. RESTORE INPUT STRING POINTER 

SET C BIT. AND SKIP NEXT INSTRUCTION 

MATCH EXIT. DISCARD SAVED POINTER. CLEAR C BIT 



.DSABL LSB 



015006 



ZZ-ESKAA-10.1 CHECK 
V10-01-L MACRO 
CHECK FOR A DELIMITER 



4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 



FOR A DELIMITER II 
V05.03 Friday 25 
IN INPUT STRING 



I INPUT 
-Apr-86 



STRING 
10:56 



N 8 



Page 60 



20-MAY-1986 



Fiche 1 Frame N8 



Sequence 104 



4787 
4788 
4789 



015006 
015010 
015014 
015016 
015020 
015022 
015024 

G15026 
015032 
015034 
015036 
015040 
015042 
015046 
015050 
015052 
015056 
015060 
015062 
015064 
015066 

015070 
015073 
015076 
015101 
015103 



010046 
012700 
105710 
001403 
121420 
001374 
000415 

012700 
105710 
001412 
121420 
001374 
012700 
105710 
001404 
126420 
001373 
005727 
000261 
012600 
000207 

040 
054 
100 
075 
053 



TESTND: 



015070' 



.SBTTL CHECK FOR A DELIMITER IN INPUT STRING 

.ENABL LSB 

CHECK FOR A DELIMITER IN INPUT STRING 
R4— >ASCII STRING 

RETURN WITH C BIT CLEAR IF NEXT CHARACTER 
IN THE STRING IS ONE OF THE FOLLOWING: 

DA SPACE. TAB. SLASH. COMMA. EQUAL SIGN.! 

2)A '♦'.OR*-'. FOLLOWED BY AN ELEMENT 

RO.-(SP) 



.*.OR 
OF '1 



•a* 



10$: 



MOV 

MOV 

TSTB 

BEQ 

CMPB 

BNE 

BR 



#TESTLS.R0 

(RO) 

20$ 

(R4) 

10$ 

50$ 



(RO)* 



015103' 



015070' 



000001 



20$: 


MOV 


ISPCLST.RO 


30$: 


TSTB 


(RO) 




BEQ 


60$ 




CMPB 


(R4).(R0)* 




BNE 


30$ 




MOV 


#TESTLS.R0 


40$: 


TSTB 


(RO) 




BEQ 


60$ 




CMPB 


1(R4).(R0)+ 




BNE 


40$ 


50$: 


TST 


(PC)* 


60$: 


SEC 






MOV 


(SPK.RO 




RTS 


PC 



POINT RO TO LIST FOR T ABOVE 

TEST FOR END OF LIST 

BR IF LIST 1 TRAVERSED WITH NO MATCH 

CHECK INPUT STRING AGAINST LIST 1 

BR IF NOT A MATCH 

CLEAR C BIT AND EXIT 

POINT RO TO LIST FOR '2* ABOVE 

CHECK FOR END OF LIST 

BR IF LIST '2' TRAVERSED WITH NO MATCH 

CHECK AN ITEM OF LIST '2' AGAINST INPUT STRING 

BR IF NO MATCH 

POINT RO TO LIST '1' AGAIN 

CHECK FOR END OF LIST 

BR IF AT END OF LIST T 

CHECK FOR A MATCH FROM LIST '1' 

BR IF NO MATCH 

CLEAR C BIT 

SET C BIT TC INDICATE NO MATCH 



Oil 
057 
Oil 
000 
055 



015 TESTLS: .BYTE 40 .11 .15 .54 .57 .72 .100 .41 .52 .'= .0 

072 

052 

000 SPCLST: .BYTE '-,'-.0 
.EVEN 
.DSABL LSB 



ZZ-ESKAA-10.1 
V10-01-L 
RECOGNIZE AND 
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B 9 



20-MAY-1985 



Fiche 1 Frame B9 



Sequence 105 



4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
480G 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
1815 
4816 
4817 
4818 
4819 
4820 



015106 



RECNUM: 



.SBTTL RECOGNIZE AND CONVERT A NUMERIC ASCII STRING 

RECOGNIZE A <NU«BER> AND CONVERT TO BINARY 

A <NUMBER> IS A STRING OF ASCII DIGITS TERMINATED BY <BLANK> 

COMMA. <EOL>. OR <CCMHENT>. 

THE DIBITS OF A <NJKBER> ARE THRU 7 IF DEFAULT RADIX IS OCTAL, 

OR THE ABOVE PLUS 8.9.A.B ,C ,D ,£ ,F IF THE DEFAULT RADIX IS HEX. 

A <NUMBER> MAY ALSO INCLUDE A LOCAL RADIX OVERRIDE. 

A LOCAL-R^OIX-OVERIDE IS A *X* FOLLOWED BY AN '0* OR AN "X". 

A LOCAL OVEKKIDE MUST NOT BE SEPARTED FROM THE DIGITS OF A 

<NUMBER> BY ANY SPACES OR TABS. 

INPUTS: 

R0.R1.R2 ARE SCRATCH 

R3-->CURRENT NODE OF SYNTAX CHECK TREE 

R4-->INPUT STRING 

R5— >RQOT OF SYNTAX CHECK TREE 

•DEFRAD* IS CURRENT DEFAULT RADIX. IF HEX. 1 IF OCTAL 

OUTPUTS: 

1) IF INPUT STRING IS RECOGNIZED AS A NUMBER: 

TRANSLATED NUHBER IS STORED AS DIRECTED BY , INFO(R3)' 

C BIT IS CLEAR 

R4-->NEXT CHARACTER OF INPUT STRING PAST THE <NUMBER> 

2) IF INPUT STRING NOT RECOGNIZED AS A <NUMBER> 

R4 IS UNCHANGED 

DATA AREA POINTED TO BY 'INFOCRS)* IS MUNGED 

C BIT IS SET 

R3.R5 NOT MODIFIED BY THIS ROUTINE 
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C 9 



20-MAY-1986 



Fiche 1 Frame C9 



Sequence 106 



4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4P31 

4832 

4833 

4834 

4835 

4836 

4837 

",838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4C69 

4870 

4871 

4872 

4873 

4874 

4875 

4876 



.ENABL LSB 



015106 
015110 
015112 
015116 
015120 
015122 
015124 
015132 
015136 
015140 
015144 
015146 
015150 
015156 
015162 
015164 
015170 
015172 
015176 
015200 
015204 
015206 
015212 
015214 
015220 
015222 
015224 
015230 
015234 
015236 
015240 
015244 
015246 
015252 
015254 
015260 

015262 
015266 
015270 
015274 
015276 
015302 
015304 
015310 
015312 
015316 
015322 
015324 
015326 
015330 
015332 
015334 



010446 
011300 
016301 
005020 
005301 
003375 
116767 
004767 
103317 
121427 
001004 
105724 
052767 
121427 
001014 
105067 
005204 
121427 
001405 
121427 
001274 
105267 
005204 
004767 
103053 
111401 
012702 
105767 
001020 
005202 
121427 
003254 
121427 
002403 
062701 
000414 

121427 
001411 
121427 
001406 
121427 
002635 
121427 
003232 
042701 
016346 
011300 
000241 
006120 
005^16 
003375 
005726 



000002 



020273 005356 
177650 

000055 



000200 
000045 

005320 

000130 

000117 

005276 

177566 



000003 
005254 



000106 
000101 
000011 

000070 

000071 

000060 

000067 

177760 
000002 



10$: 



020222 



50$: 



25$: 
30$: 



31$ 



32$: 



33$ 

35$ 



40$ 



MOV 


R4.-(SP) 


MOV 


(R3).R0 


MOV 


ACTI0N(R3).R1 


CLR 


(RO)* 


DEC 


Rl 


BGT 


10$ 


MOVB 


DEFRAD.TMPRAD 


JSR 


PC.TESTND 


BCC 


NOMATC 


CMPB 


(R4).#'- 


BNE 


50$ 


TSTB 


(R4)* 


BIS 


fNEGATE.TCONTL 


CMPB 


(R4).#'X 


BNE 


30$ 


CLRB 


TMPRAD 


INC 


R4 


CMPB 


(R4).#'X 


BEQ 


25$ 


CMPB 


(R4).*'0 


BNE 


NOMATC 


INCB 


TMPRAD 


INC 


R4 


JSR 


PC.TESTND 


BCC 


60$ 


MOVB 


(R4).R1 


MOV 


#3.R2 


TSTB 


TMPRAD 


BNE 


32$ 


INC 


R2 


CMPB 


(R4).*'F 


BGT 


NOMATC 


CMPB 


(R4).#'A 


BLT 


31$ 


ADD 


fll.Rl 


BR 


33$ 



CMPB 

l c Z 

CMPB 

BEQ 

CMPB 

BLT 

CMPB 

BGT 

B1C 

MOV 

MOV 

CLC 

ROL 

DEC 

BGT 

TST 



(R4),#'B 

33$ 

(R4).#'9 

33$ 

(R4).#'0 

NOMATC 

(R4).#'7 

NOMATC 

#177760. Rl 

ACTI0NCR3) 

(R3).R0 

(RO)* 
(SP) 
40$ 
(SP)* 



SAVE R4 IN CASE A <NUMBER> NOT RECOGNIZED 
POINT RO TO OUTPUT AREA 
Rl GETS # OF WORDS IN OUTPUT AREA 
CLEAR OUTPUT AREA 



PUT DEFAULT RADIX CODE IN TEMPORARY 

TEST FOR A DELIMITER IN INPUT STRING 

BR IF FIRST CHARACTER IS A DELIMITER 

CHECK FOR A LEADING MINUS SIGN 

BR IF NOT A MINUS SIGN 

INCREMENT POINTER PAST MINUS SIGN 

REMEMBER STRING IS TO BE NEGATED 

CHECK FOR RADIX OVERRIDE 

BR IF NOT 

ASSUME RADIX HILL BE HEX 

CHECK FOR HEX OVERRIDE 

BR IF IT HAS HEX 

SEE IF OVERRIDE IS OCTAL 

BR IF NOT OCTAL 

SET RADIX TO OCTAL 

BUMP STRING POINTER PAST 

CHECK FOR A DELIMITER IN 

BR IF A DELIMITER SEEN 

PUT CHARACTER IN Rl 

ASSUME RADIX IS OCTALCNEED 3 SHIFTS) 

CHECK FOR OCTAL 

3R IF IS OCTAL 

ADD 1 TO SHIFT COUNT 

CHECK FOR A THRU F SINCE RADIX IS HEX 

BR IF GREATER THAN AN F(CAN NOT BE A DIGIT) 



OVERRIDE 
INPUT STRING 



;BR IF LESS THAN AN A 

.•PRELIMINARY CONVERSION FOR A THRU F 



TEST FOR DIGITS 8 OR 9 

BR IF AN 8 

CHECK FOR 9 

BR IF 9 

CHECK FOR DIGITS ThRU 7 

BR IF LESS THAN ASCII 0(CAN 



NOT BE A DIGIT) 



-(SP) 



BR IF > ASCII 7(CAN NOT BE A DIGIT ALLOWED) 
CLEAR EXTRANEOUS BITS 

PUT t OF WORDS IN OUTPUT AREA ON STACK 
POINT RO TO OUTPUT AREA 

SHIFT THE OUTPUT AREA R2 TIMES 
CHECK FOR ALL WORDS SHIFTED 
BR IF ALL WORDS NOT SHIFTED 
POP COUNT FROM STACK 



D 9 



ZZ-ESKA* 


1-10.1 


RECOGNIZE AND CONVERT A NUMERIC 


ASCII 


STRING 


V10-01-1 




MACRO V05.03 Ft -day 25-Anr-86 


10:56 


Page 62-1 


RF.COGKIZE AND CONVERT A 


NUMERIC ASCII STRING 






4877 


015336 


005302 




DEC 


R2 


4878 


015340 


003366 




BGT 


35$ 


<*379 


015342 


011300 




MOV 


(R3),R0 


4880 


015344 


060110 




ADD 


Rl.(RO) 


4£81 


015346 


000721 




BR 


25$ 


4882 












4883 


015350 


032767 


000200 020022 60$: 


BIT 


fNEGATE.TCONTL 


4E84 


015356 


001611 




BEQ 


..mICH 


4885 


015360 


042767 


000200 020012 


BIC 


/NEGATE. TCONTL 


4886 


015366 


0113C0 




MOV 


(R3).R0 


4887 


015370 


016301 


OOOG02 


MOV 


ACTI0N(R3).R1 


4838 


015374 


010102 




MOV 


R1.R2 


4839 


015376 


005120 


70$: 


COM 


(R0) + 


4890 


015400 


005301 




DEC 


Rl 


4891 


015402 


003375 




BGT 


70$ 


4892 


015404 


011300 




MOV 


(R3).R0 


4893 


015406 


Of'2720 


0:0001 


ADD 


#1.(R0>* 


4894 


015412 


005302 


80$: 


DEC 


R2 


4895 


015414 


003002 




BGT 


90$ 


4P96 


015416 


000167 


177360 


JMP 


MATCH 


4897 


31D422 


005520 


90$: 


ADC 


(R0) + 


4898 


015424 


000772 




BR 


80$ 


4899 












4900 








.DSABL LSB 


4901 












4902 






;END OF 


PARSING MODULE 



20-MAY-1986 



Fiche 1 Frame D9 



Sequence 107 



REDUCE SHIFT COUNT 

BR IF MORE SHIFTS NEEDED 

RO GETS POINTER TO OUTPUT AREA AGAIN 

ADD IN INPUTTED DIGIT 



TEST FOR NEGATION OF NUMBER 

EXIT IF NO NEGATION SPECIFIED 

CLEAR NEGATION FLAG 

RO GETS POINTER TO CONVERTED STRING 

Rl GETS t OF WORDS IN NUMBER 

SAVE t OF WORDS FOR SUCCEEDING STEP 

FIR",T DO ONE'S COMPLEMENT OF NUMBER 



;GET POINTER TO RO AGAIN 
.■INCREMENT THE NUMBER BY ONE 

;BR IF MORE CARRIES TO ADD 

.-ADD CARRY 



ZZ-ESKAA-10-1 

V10-01-L 
MAIN SYNTAX 



E 9 



MAIN SYNTAX CHICK TREE 
MACRO V05.03 : riday 25- 
CHECK TREE 
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20-MAY-1986 



Fiche 1 Frame E9 



Sequence 108 



4904 

4905 

4906 

4907 

4908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 



015426 

015426 
015134 

015442 
015450 
015456 

015464 
015472 

015500 
015506 

015511 

015522 

015530 

015536 

015544 

015552 
015560 
015566 
015574 
015602 

015610 

015616 
015624 
015632 
015640 
015646 

015654 

015662 
015670 
015676 
015704 
015712 
015720 
015726 
015734 
015742 
015750 



015426' 





.SBTTL 




XXT=. 


MAJTREE 


: 


MTREPE: 


SEN 
SEN 


MTSTAR: 
MTNUMO: 
MTSAL2: 


SEN 
SEN 
SEN 


MTWAIT: 
MTDONE: 


SEN 
SEN 


MTNEXTr 
MTNUMl: 


SEN 
SEN 


MTINIT: 


SEN 


MTBOOT: 


SEN 


MTSHOH: 


SEN 



MTVERS: SEN 
MTHALT: SEN 



MAIN SYNTAX CHECK TREE 

;SET THIS TO ROOT ADDRESS FOR TREE GENERATOR 

;INFO ACTION YES NO LIST/NUMBER/ROUTINE CALL 

COCNTP. NULL. MTEOL . MTREPE .-PX-03-05 

COREPE. SETftPT. MTSTAR. MTSTAR 

COSTAR. DOSTAR, MTNUMO. MTWAIT, ACT 

EFFADR. 4. MTEOL. MTSAL2. NUM 

SYBLST. SYBACT. MTEOL. 0. LST 

COWAIT. NULL. MTDONE. MTNEXT 

NCDONE. DOHAIT, MTEOL. 0. ACT 

CONEXT. DONEXT, MTNUMl. MTINIT. ACT 

COUNT, 2. MTEOL. MTEOL. NUM 



MTBOOT. ACT 
MTSHOH 



COINIT. DOINIT. MTEOL. 

COBOOT. SVBOOT. MTEOL. 

COSHOH. DOSHOH. MTVERS. MTHALT, ACT 

NCVERS. DOSHVR. MTEOL, MTEOL, ACT 

COHALT. DOHALT. MTEOL. MTcXAM. ACT 



MTEXAM: 


SEN 


COEXAM. 


SVEXAM. 


MTSALO. 


MTCONT 




MTSALO: 


SEN 


SYBLST. 


SYBACT. 


MTEOL. 


MTNUM2. 


LST 


MTNUM2: 


SEN 


EFFADR. 


2. 


MTEOL, 


MTEXIR. 


NUM 


MTEXIR: 


SEN 


NCIR. 


DOIR, 


MTEOL. 


MTFIXA, 


ACT 


MTFIXA: 


SEN 


RESADD. 


NULL, 


MTEOL, 


MTEOL. 


RTN 


MTCONT: 


SEN 


COCONT, 


DOCONT. 


MTEOL, 


MTDEPO. 


ACT 


MTDEPO: 


SEN 


CODEPO. 


SVDEPO, 


MTNUM3, 


MTQCLE 




MTNUM3: 


SEN 


EFFADR. 


2. 


MTEQU. 


MTSAL1. 


NUM 


MTSAL1: 


SEN 


SYBLST. 


SYBACT. 


MTEQU. 


0. 


LST 


MTEQU: 


SEN 


NCEQU. 


NULL, 


MTNUM4. 


MTNUM4 




MTNUM4: 


SEN 


DATATO. 


4. 


MTEOL. 


0, 


NUM 


MTQCLE: 


SEN 


COQCLE. 


DOQCLE. 


MTNUM2, 


MTSET, 


ACT 


MTSET: 


SEN 


COSET. 


NULL. 


MTSTEP. 


MTTEST 




MTSTEP: 


SE,. 


NCSTEP. 


DOSSTN. 


MTSTOP. 


MTRELO. 


ACT 


MTSTOP: 


SEN 


STOPLS. 


STACLS. 


MTEOL. 


MTEOL, 


LST 


MTRELO: 


SEN 


NCRELO. 


NULL. 


MTC0L2. 


MTTERM 




MTC0L2: 


SEN 


NCCOLO. 


NULL. 


MTNUM5, 


MTEOL 




MTNUM5: 


SEN 


RELOCA. 


2. 


MTEOL. 


0. 


NUM 


MTTERM: 


SEN 


NCTERM, 


NULL. 


MTFILL. 


MTDEFA 




MTFILL: 


SEN 


NCFILL. 


DOSTER. 


MTCOLO. 


MTPROG. 


ACT 


MTCOLO: 


SEN 


NCCOLO. 


NULL, 


MTNUM4, 







MTDEFA: 


SEN 


NCDEFA. 


DOSTDF, 


MTDFOP. 


MTSOMO. 


ACT 



RTN .-THIS NODE CALLS 'RESADD' 



ZZ-ESKAA-10.1 


MAIN SYNTAX 


CHECK 


TREE 








F 9 

20-MAY-1986 


Fie 


V10-01-1 




MACRO V05 


.03 


Fr it 


iay 


25 


-Apr-86 


10:56 


Page 63-1 










MAIN SYNTAX CHECK TREE 
























4959 


015756 












MTPROG: 


SEN 


NCPROG. 


DOSTPG. 


MTEOL. 


0, 


ACT 


4960 


015764 












MTDFOP: 


SEN 


DFOPLS. 


DFOPAC. 


MTCOMO. 


MTEOL. 


1ST 


4961 


015772 












MTCOMli: 


SEN 


NCCOMM. 


NULL. 


MTDFOP, 


MTEOL 




4962 


016000 












MTSOMOi 


SEN 


NCSOMM. 


DOSTSO. 


MTEOL. 


MTCLOC. 


ACT 


4963 


016006 












MTCLOC: 


SEN 


NCCLOC. 


DOSTCN. 


MTCLOP. 


0. 


ACT 


1 4964 


016014 












MTCLOP: 


SEN 


CLOPLS. 


CLOPAC. 


MTEOL. 


KTEOL. 


LST 



Fiche 1 Frame F9 



Sequence 109 



ZZ-ESKAA-10. 
V10-01-L 
MAIN SYNTAX 



1 MAIN SYNTAX CHECK TREE 

MACRO V05.03 Friday 25- 
CHECK TREE 



G 9 



Apr-86 10:56 Page 64 



20-MAY-1986 



Fiche 1 Frame G9 



Sequence 110 



4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4995 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5G00 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 



016022 

016030 

016036 

016044 

016052 

016060 
016066 

016074 

016102 

016110 

016116 

016124 

016132 

016140 
016146 

016154 

016162 
016170 



016176 
016204 
016212 
016220 
016226 
016234 
016242 
016250 
016256 
016264 
016272 

016300 
016306 
016314 
016322 
016330 
016336 



MTTEST: 

MTHCS: 

HTREBO: 

MTUNJA: 

MTLOAD: 

MTCLEA: 
MTCLKP: 

MTINDI: 

MTHELP: 

MTPERF: 

MTLINK: 

MTOVER: 

MTEOL: 

MTDX1 : 
MTCOL1: 



MTENDX; 
HTC0L3: 



MTENAB: 
MTTALK: 
MTLOCA: 
MTCNTL: 
MTCOPY: 
MTFLP1 : 
MTECHO: 
MTCARR: 
MTERRO: 
MTREMO: 
MTFPR1: 

MTDISA; 
MTECH1: 
MTCAR1 : 
MTERR1 ; 
M1L0C1 : 
MTCOP1 ; 



SEN 

SEN 

SEN 

SEN 

SEN 

SEN 
SEN 

SEN 

SEN 

SEN 

SEN 

SEN 

SEN 

SEN 

SEN 



:INFO ACTION 

COTEST. DOTEST. 

COHCS, DOMCS. 

COREBO. DOREBO. 

COUNJA. DOUNJA. 

COLOAD. SVLOAD. 

COCLEA. NULL. 

CLEOPL. CLEOPA. 

COINDI. DOINDI. 

COHELP. SVHELP. 

COPERF. DOPERF. 

COLINK. DOLINK. 

COOVER. DOOVER. 

EOLLST. EOLACT. 

NCDX1 . NULL. 

NCCOLO. SETDX1 . 



YES NO LIST/NUMBER/ROUTINE CALL 

MTEOL. MTUCS. ACT 

MTEOL. MTREBO. ACT 

MTEOL. MTUNJA. ACT 

MTEOL. MTLOAD. ACT 

MTDX1. MTCLEA 

MTCLKP. MTINDI 

MTEOL. 0. LST 

MTDX1 . MTHELP. ACT 

MTEOL. MTPERF 

MTEOL. MTLINK. ACT 

MTEOL. MTOVER. ACT 

MTDX1 . MTENAB. ACT 

0. 0. LST 

MTCOL1. MTXLAT 

MTXLAT. 



MTXLAT: SEN 



XLATFN, NULL, MTEOL. 0. 



SEN 

SEN 



NCDX1 . DOENDX. 
NCCOLO. NULL. 



MTC0L3. 0. 
MTEOL. MTEOL 



RTN 
ACT 



.-THIS NODE CALLS 'XLATFN' 



;APT RD SPECIFIC SYNTAX 



SEN 
SEN 
SEN 
SEN 
SEN 
SEN 
SEN 
SEN 
SEN 
SEN 
SEN 

SEN 
SEN 
SEN 
SEN 
SEN 
SEN 



COENAB. 


NULL. 


MTTALK. 


MTDISA 




NCTALK. 


ENTTLK. 


MTEOL. 


MTLOCA. 


ACT 


NCLOCA. 


NULL. 


MTCNTL. 


MTREMO 




NCCNTL. 


F.NLOCN. 


MTEOL. 


MTCOPY. 


ACT 


NCCOPY. 


ENLOCO. 


MTEOL. 


MTFLP1. 


ACT 


NCFLOP. 


ENFLOP. 


MTEOL. 


0. 


ACT 


NCECHO, 


ENECHO. 


MTEOL. 


MTCARR. 


ACT 


NCCARR. 


NULL. 


MTERRO. 


MTENDX 




NCERRO. 


ENCLER. 


MTEOL. 


0. 


ACT 


NCREMO. 


NULL. 


MTFPR1. 


MTECHO 




NCFLOP, 


ENREMT. 


MTEOL. 


0. 


ACT 


CODISA, 


NULL. 


MTECH1 . 


MTXLOA 




NCECHO. 


DSECHO. 


MTEOL. 


MTCAR1 . 


ACT 


NCCARR, 


NULL, 


MTERR1 , 


MTLOC1 




NCERRO. 


DSCLER. 


MTEOL, 


0. 


ACT 


NCLOCA, 


NULL. 


MTCOP1, 


MTREM1 




NCCOPY, 


DSLOCO. 


MTEOL. 


MTFLP2. 


ACT 



ZZ-ESKAA-10.1 MAIN SYNTAX CHECK TREE 

V10-01-L MACRO VO5.03 Friday 25-Apr-86 10:56 Page 64-1 

MAIN SYNTAX CHECK TREE 



H 9 



20-HAY-1986 



5021 
5022 
5023 
5924 
5025 
5026 
5027 
5028 
5029 
5030 



016344 
016352 
016360 

016366 
016374 
016402 



MTFLP2: SEN 

MTREM1 : SEN 

MTFPR2: SEN 

MTXLOA: SEN 

MTNUM6: SEN 

MTNUM7: SEN 



NCFLOP. DSFLOP. MTEOL. 
NCREMO. NULL. MTFPR2. 
NCFLOP. DSREMT. MTEOL. 



Fiche 1 Frame H9 

ACT 
ACT 



Sequence 111 



COXLOA. DOXLOA. MTNUM6. MTEOL. ACT 
EFFADR. 4. MTNUM7. 0. NUM 
COUNT. 4. MTEOL. 0. NUM 



000212 



APTCMD=.-HTENAB 



ZZ-ESKAA-10.1 QUALIFIER SYNTAX CHECK TREE 
V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 
QUALIFIER SYNTAX CHECK TREE 



I 9 



Page 65 



2Q-MAY-1986 



Fiche 1 Frame 19 



Sequence 112 



5032 

5033 

5034 

5035 

5036 016410 

5037 

5038 016410 

5039 016416 

5040 016424 
5041 

5042 016432 

5043 

5044 016440 

5045 

5046 016446 

5047 016454 

5048 016462 

5049 016470 
5050 

5051 016476 

5052 016504 
5053 

5054 016512 



016410 





.SBTTL 


QUALIFIER SYNTAX CHECK 


TREE 






XXT=. 


;SET THIS TO ROOT ADDRESS OF TREE F 


QALTRE: 




;INFO 


ACTION 


YEL 


NO 


LIS 


QTCOLO: 
QTNUMO: 


SEN 
SEN 
SEN 


CONEXT. 
NCCOLO. 
NEXTCT. 


SETNEX. 

NULL. 

1. 


QTCOLO. 
QTNUMO. 
0. 


QTCOMM 
QTTSND 
QTTSND. 


NUM 


QTCOMM: 


SEN 


&CCOMD. 


SETCOM. 


0. 


QTHCS 




QTHCS: 


SEN 


NCWCS. 


SETHCS. 


0. 


QTSTAR 




QTSTAR: 
QTC0L3: 
QTNUMl: 
QTSALO: 


SEN 
SEN 
SEN 
SEN 


COSTAR. 
NCCOLO. 
EFFADR. 
SYBLST, 


NULL. 
NULL. 
2. 
SYBACT. 


QTC0L3. 
QTNUMl. 
0. 
0. 


QTDFOP 
QTTSND 
QTSALO. 

0. 


NUM 
LST 


QTDFOP: 
QTCOM2: 


SEN 
SEN 


DFOPLS. 
NCCCMM. 


DFOPAC. 
NULL, 


QTC0M2. 
QTDFOP. 


0, 
QTTSND 


LST 


QTTSND: 


SEN 


TESTND. 


NULL. 


0. 


0. 


RTN 



.•THIS NODE CALLS 'TESTND' 



ZZ-ESKAA-10.1 

V10-01-L 

MAINTREE 



5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 



MAINTREE AND QUALIFIER TREE LISTS 
MACRO V05.03 Friday 25-Apr-86 10:56 
AND QUALIFIER TREE LISTS 



J 9 



Page 66 



20-MAY-1986 



Fiche 1 Frame J9 



Sequence 113 



5072 

5073 
5074 
5075 



016520 
016526 



016532 
016540 
016544 
016552 



016554 
016562 



020361' 
002764 



020364 
002764 



000000 



EOLLST; 
EOLACT: 



020142' 020320* 020054' STOPLS: 

020163' 000000 

OOOOOOC O000O0C 000000C STACLS: 

000000C 



020163' 020112' 020306' CLOPLS; 
000000 



5076 


016564 


OOOOOOC 


OOOOOOC 


OOOOOOC 


CLOPAC 


5077 












5078 












5079 


016572 


020312' 


020324* 


000000 


CLEOPL 


5080 


016600 


OOOOOOC 


OOOOOOC 




CLEOPA 


5081 












5082 












5083 


016604 


020362' 


020363* 


020176* 


SYBLST 




016612 


020365' 


017756* 


020173* 






016620 


020316* 








5084 


016622 


020214' 


020217' 


020222' 






016630 


020225* 


020230' 


020233* 






016636 


020236* 


020241* 


020244* 






016644 


020247* 








5085 


016646 


320252' 


020256* 


020262* 






016654 


020266' 


020272* 


020276' 






016662 


020051* 


020124' 


000000 




5086 


016670 


017560' 


017574' 


017426' 


SYBACT 




016676 


017576' 


017704* 


C17434' 






016704 


017442' 








5087 


016706 


017544' 


017542* 


017540' 






016714 


017536' 


017534* 


017532' 






016722 


017530' 


017526' 


017524' 






016730 


017522' 








5088 


016732 


017520' 


017516' 


017514* 






016740 


017512' 


017510' 


017506* 






016746 


017514' 


017512' 







5089 
5090 
5091 

5092 



016752 0202C1 ' 020344' 020127 
016760 020146' 020136' 020073 
016766 020334' 020133* 020167 



.SBTTL MAINTREE AND QUALIFIER TREE LISTS 

.•RECOGNITION LISTS AND ASSOCIATED ACTION LISTS FOR BOTH 
.-THE HAIN SYNTAX TREE AND THE QUALIFIER SYNTAX TREE 

;A RECOGNITION LIST IS A SERIES OF WORD POINTERS TO RECOGNITION 
.•STRINGS. TERMINATED BY A WORD. 

.-THE ACTIONS ASSOCIATED WITH EACH RECOGNITION STRING IN A LIST 
.-FOLLOW IN ORDER IMMEDIATELY AFTER THE END OF THE RECOGNITION LIST. 

.-END-OF-LINE LIST 

.WORD NCEOL. NCCMNT. 

.WORD EXECUT.EXECUT 

:SET STEP OPTION LIST 

.WORD NCINST.NCSTAT.NCBUS.NCNORM.O 

.WORD DQSSTIil .DOSSTSil .DOSSTB ! 1 .DOSSTN ! 1 

.-'SET CLOCK' OPTION LIST 
.WORD NCNORM.NCFAST.NCSLOW.O 

.WORD DOSTCN!l.DOSTCF!l .DOSfCSii 

;*CLEAR* OPTION LIST 
.WORD NCSOMM.NCSTEP.O 
.WORD DOCLSO!l.DOSSTN!l 

.•SYMBOLIC ADDRESS LIST 

.WORD NCASTK.NCPLUS.NCPSL.NCMNUS.COINDI .NCPC.NCSP 

.WORD NCR0.NCR1.NCR2.NCR3.NCR4.NCR5.NCR6.NCR7.NCR8.NCR9 

.WORD NCR10.NCR11 .NCR 12 .NCR1 3 .NCR 14 .NCR15 .NCAP . NCFP . 

.WORD £ETLSA.SETPLS.SETPSL.SETMNS.SETLSD.SETPC,SETSP 

.WORD SETR0,SETRl.SETR2,SETR3.SETf;4.SETR5.SETR6.SETR7,SF.TR8.SETR9 

.WORD SETR10.SETR11 .SETR12 .SETR13 .SETR1 4 .SETR15 .SETR12 .SETR13 



; *SET DEFAULT' OPTION LIST(ALSO USED BY QUALIFIERS) 
DFOPLS: .WORD NCPHYS ,NCV IRT .NCGENE .NCINTE .NCIDBU .NCCONS 

.WORD NCVBUS.NCHEX,NCOCTA.NCBYTE,NCWORD.NCIONG,NCQUAD,0 



K 9 

ZZ-ESKAA-10.1 MAINTREE AND QUALIFIER TREE LISTS 20-MAY-1986 Fiche 1 Frame K9 Sequence 114 

V10-01-L MACRO VO5.03 Friday 25-Apr-86 10:56 Page 66-1 
MAINTREE AND QUALIFIER TREE LISTS 

016774 020057' 020353' 020157" 

017002 020211' 000000 

5093 017006 017324' 017322' 017320" DFOPAC: .WORD SETPHY .SETVIR .SETGEN .SETINT .SETIDB .SETCON 
017014 017316* 017314' 017312' 

5094 017022 017310* 017402' 017400* .WORD SETVBU.SETHEX.SETOCT .SETBYT.SETWRD .SETLNG.SETQAD 
017030 017372' 017370' 017366' 
017036 017364' 



ZZ-ESKAA-10.1 
V10-01-L 
PARSER ACTION 

5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 



PARSER ACTION 
MACRO V05.03 
ROUTINES 



ROUTINES 

Friday 25-Apr-86 



L 9 



10:56 Page 67 



20-MAY-1986 



Fiche 1 Frame L9 



Sequence 115 



SBTTL PARSER ACTION ROUTINES 



THESE ROUTINES ARE CALLED BY 'RECOG' ROUTINE 
VIA A 'JSR PC.(R2)* 

R3-->CURRENT NODE OF 'HAINTREE' OR 'QALTRE' 

R4-->NEXT LEXEME OF INPUT STRING 

R5-->R00T NODE OF MAINTREE OR QALTRE 

RO IS SCRATCH 

Rl IS CLEARCUSED BY SET DEFAULT ACTIONS) 

R2-->WHATT0D0 (USED BY ALL 'SVXXXX* ROUTINES) 



M 9 



ZZ-ESKAA-10.1 
V1Q-01-L 
ACTIONS THAT 



5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

51M 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 



ACTIONS THAT 
MACRO V05.03 
SAVE OPERATION 



SAVE OPERATION TO 
Friday 25-Apr-86 
70 PERFORM 



PERFORM 
10:56 Page 



68 



20-MAY-1986 



Fiche I Frame M9 



Sequence 116 



5162 
5163 



017040 
017044 
017050 
017054 
017056 
017062 
017070 

017072 
017076 
017100 
017102 
017104 
017110 
017112 
017114 
017120 
017124 
017126 
017130 
017134 
017140 
017144 
017146 
017150 
017152 

017154 
017160 
017164 

017166 
017166 
017170 
017172 

017174 
017174 
017176 
017200 

017202 
017202 
017204 
017206 

017210 
017210 
017212 
017214 



012712 
004767 
004767 
103027 
012702 
112762 
C00403 

004767 
103005 
112422 
005201 
02012^ 
002770 
010446 
012704 
004767 
012604 
103011 
105267 
012700 
012701 
012021 
012021 
012021 
000207 

012712 
012700 
000765 



014716 
007347 
012314 



012446 
074444 
031760 



110113 
134745 
062074 



070533 
076472 
012314 



.SBTTL ACTIONS THAT SAVE OPERATION TO PERFORM 



.ENABL LSB 



003104' 

175554 

175732 

022472' 

000060 000002 



175710 



SVBOOT: MOV 
JSR 
JSR 
BCC 
MOV 
MOVB 
BR 



000003 



02247?' 
172652 



016260 
017166' 

022546' 



003140' 
017174* 



*D0B00T.(R2) 

PC.REMLEA 

PC.TESTND 

STBOFL 

#BOOSTR.R2 

#'0.2(R2) 

50$ 



40$: 


JSR 


PC.TESTND 




BCC 


60$ 


50$: 


MOVB 


(R4)*.(R2)* 




INC 


Rl 




CMP 


Rl.#3 




BLT 


40$ 


60$: 


MOV 


R4,-(SP> 




MOV 


#B00STR.R4 




JSR 


PC.XLATFN 




MOV 


(SP)*.R4 




BCC 


90$ 




INCB 


ABORT 


STBOFL: 


MOV 


fDEFNAM.RO 


SETFIL: 


MOV 


#FILENM.Rl 




MOV 


(R0)*.(RD* 




MOV 


(R0)*.<RD* 




MOV 


(R0)*.(R1)* 


90$: 


RTS 


PC 


SVHELP: 


MOV 


#D0INDI.(R2> 




MOV 


#HELNAM.R0 




BR 


SETFIL 



SAVE 'BOOT' 

SLUFF SPACES AND TABS FROM INPUT STRING 

TEST FOR A DELIMITER IN INPUT STRING 

BR IF A DELIMITER SEEN 

POINT R2 TO ASCII BOOT FILE NAME STRING 

ASSUME UNIT ZERO 



TEST FOR A DELIMITER IN THE INPUT STRING 

BR IF DELIMITER IN INPUT STRING 

PUT CHARACTER INTO BOOT NAME STRING 

KEEP TRACK OF HOW MANY CHARACTERS 

SEE IF 3 CHARACTERS YET 

BR TO GET ANOTHER IF NOT 3 YET 

SAVE INPUT STRING POINTER 

POINT R4 TO BOOT FILENAME STRING 

TRANSLATE TO RAD50 

REPLACE INPUT STRING POINTER 

BR IF XLATION OK 

THIS WILL PREVENT AN ATTEMPT TO BU3T 

SET UP DEFAULT BOOT FILENAME 



HELP FILE IS INDIRECT 
POINT RO TO HELP FILE 
PUT HELP FILE NAME IN 



FILE 

NAME BLOCK 

'FILENM' 



DEFNAM 



HELNAM: 



ECONAM 



RESNAM: 



DEFAULT BOOT FILE NAME IN RAD50 
P.AD50 \DEF\ 
RAD50 \B0O\ 
RAD50 \CMD\ 

CONSOLE HELP FILE NAME IN RAD50 
RAD50 \CON\ 
RAD50 \S0L\ 
RAD50 \HLP\ 

WCS ECO FILE NAME IN RAD50 

RAD50 \WCS\ 

WORD 134745 ;NOTE: THIS IS A 'WILD CARD' TO THE FILE OPEN RTN 

RAD50 \PAT\ 

AUTO-RESTART INDIRECT COMMAND FILE NAME IN RAD50 
RAD50 \RES\ 
RAD50 \TAR\ 
RAD50 \CMD\ 



ZZ-ESKA* 


k-10.1 


ACTIONS 


THAT SAVE OPERATION TO 


V10-01-L 




MACRO V05.03 F 


riday 25 


-Apr-86 


ACTIONS 


THAT SAVE OPERATION TO 


PERFORM 




5164 


017216 


005727 






SVEXAM: 


5165 


017220 


000261 






SVDEPO: 


5166 


017222 


005567 


016164 






5167 


017226 


012712 


004514* 






5168 


017232 


016767 


017346 


003266 




5169 


017240 


016767 


017342 


003262 




5170 


017246 


000207 








5171 












5172 


017250 


012712 


012322' 




SVLOAD: 


5173 


017254 


105267 


016132 






5174 


017260 


005067 


017320 






5175 


017264 


005067 


017316 






5176 


017270 


000207 








5177 












5178 












5179 












5180 


017272 


105267 


016117 




SETRPT: 


5181 


017276 


000207 








5182 












5183 


017300 


052767 


000040 


016072 


SETDX1: 


5184 


017306 


000207 








5185 












5186 












5187 












5188 












5189 












5190 












5198 












5199 












5200 












5201 


017310 


005201 






SETVBU: 


5202 


017312 


005201 






SETCON: 


5203 


017314 


005201 






SETIDB: 


5204 


017316 


005201 






SETINT: 


5205 


017320 


005201 






SETGEN: 


5206 


017322 


005201 






SETVIR: 


5207 


017324 


110167 


016072 




SETPHY: 


5208 


017330 


000207 








5209 


017332 








RESADD: 


5210 


017332 


016767 


003170 


017244 




5211 


017340 


016767 


003164 


017240 




5212 


017346 


105767 


016050 






5213 


017352 


100003 








5214 


017354 


116767 


003126 


G16040 




5215 


017362 


000207 






10$: 



PERFORM 
10:56 Page 



N 9 



68-1 



20-MAY-1986 



Fiche 1 Frame N9 



Sequence 117 



TST (PC)* 

SEC 

ADC DEEXBY 

MOV *D0DEEX.(R2) 

MOV EFFADR.SAVEFF 

MOV EFFADR+2.SAVEFF-2 

RTS PC 

mov #d0l0ad.(r2) 

incb dee;:by 

clr effadr 

clr effadr*2 

RTS PC 



CLEAR C BIT FOR EXAMINE 

SET C BIT FOR DEPOSIT 

C BIT GOES TO DEEXBY TO REMEMBER EX OR DE 

REMEMBER EX/DE ROUTINE 

SAVE UPDATED EFFECTIVE ADDRESS 



SAVE 'LOAD' 

FORCE DEPOSIT 

CLEAR LOAD START ADDRESS 



.DSABL LSB 



INCB 
RTS 

BIS 
RTS 



RPTFLG 
PC 



.-SET REPEAT FLAG 



#DX1FLG.TC0NTL ;SET DRIVE 1 FLAG 
PC 



.SBTTL ACTIONS FOR QUALIFIERS AND SET DEFAULT COMMAND 



;THE FOLLOWING ROUTINES REQUIRE Rl =0 ON ENTRY 



;ROUTINE TO SET CURRENT ADDRESS SPACE BYTE 



INC 

INC 

INC 

INC 

INC 

INC 

MOVB 

RTS 

.•RESTORE 

MOV 

MOV 

TSTB 

BPL 

MOVB 

RTS 



Rl 
Rl 
Rl 
Rl 
Rl 
Rl 

Rl.CURADS 
PC 
CONTENTS 



OF 'EFFADR' FROM 'SAVEFF 



SAVEFK. EFFADR 

SAVEFF*2,EFFADR*2 

CURADS 

10$ 

LASADS. CURADS 

PC 



ADDRESS SPACE SPECIFIED? 

BR IF YES 

USE PREVIOUS ADDRESS SPACE 



ZZ-ESKAA-1Q 
V10-01-L 
ACTIONS FOR 



5217 
5218 
5219 
5220 
5221 
5222 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5236 
5237 
5238 
5239 
5240 



1 ACTIONS FOR QUALIFIERS AND SET 

MACRO V05.03 Friday 25-Apr-86 

QUALIFIERS AND SET DEFAULT COMMAND 



B 10 



DEFAULT COMMAND 
10:56 Page 69 



20-MAY-1986 



Piche 1 Fr-ae BIG 



Sequence 118 



5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 



017364 
017366 
017370 
017372 
017376 



017400 
017402 
017406 



017410 
017414 

017416 
017424 

017426 
017432 

017434 
017440 

017442 
017446 

017450 
017454 
017456 
017464 
017466 

017470 
017476 
017504 



005201 
005201 
005201 
110167 
000207 



005201 
110167 
000207 



005267 
000207 

052767 
000207 

OC4067 
004 

004067 
002 

004067 
002 

112067 
112000 
112767 
005726 
000501 

052767 
052767 
000207 



016023 



016012 

015770 

100000 

000016 
017 

000010 
017 

000002 
016 

015746 

000002 



100000 
010000 



015756 



015735 



015702 
017100 



.♦ROUTINE TO SET CURRENT DATA LENGTH BYTE 

.ENABL LSB 

.•REQUIRES R1=0 OH ENTRY 



SETQAD: 
SETLNG: 
SETHRD: 
SETBYT: 


INC 

INC 

INC 

MOVB 

RTS 


Rl 

Rl 

Rl 

Rl.CURLNH 

PC 




.-SET RADIX BYTE 


SETOCT: 
SETHEX: 


INC 

MOVB 

RTS 


Rl 

Rl.CURRAD 

PC 


SETNEX: 


INC 
RTS 


NEXTCT 
PC 


SETCOM: 


BIS 
RTS 


iCOMQAL.MICFLG 
PC 


3ETPSL: 


JSR 
.BYTE 


RO. SETUPR 
IDBSPC.17 


SETPC: 


JSR 
.BYTE 


RO.SFTUPh 
GFNSPC.17 


SETSP: 


JS? 
.BYTE 


RO. SETUPR 
GENSPC.16 


SETUPR: 


MOVB 

MOVB 

MOtfB 

TST 

BR 


<R0)*.CURADS 

(R0)*.RG 

fLNGLNH.CURLNH 

(SP)* 

SETOUT 


SETWCS: 


BIS 
BIS 
RTS 


fWCSDES.TCONTL 

*1Q000,EFFADR 

PC 



;SET /NEXT COUNT TO DEFAULT OF 1 



.-SET COMMAND MODE BIT FOR MICRO-DIAGNOSTICS 



.-SET UP TO ACCESS THE PROCESSOR STATUS LONG HORD 



.-SET UP TO ACCESS THE PC 



;SET UP TO ACCESS THE STACK POINTER 



SET ADDRESS SPACE CODE 
RO GETS ADDRESS 
SET LENGTH TO LONG WORD 
POP SAVED RO OFF STACK 
FINISH UP BELOW 

.•REMEMBER PRESENCE OF /UCS QUALIFIER 
.-FORCE LOAD ADDRESS TO START OF WCS 



DSABL LSB 

















C 10 


ZZ-ESKA* 


1-10.1 


SYMBOLIC 


REGISTER 


ADDRESS SETUPS 


20-MAY-1986 Fiche 1 Frame 


V10-01-L 




MACRO V05.03 Fri 


day 25 


-Apr-8* 


10:56 P 


age 70 


SYMBOLIC 


: REGISTER ADDRESS SETUPS 










5269 












.SBTTL 


SYMBOLIC REGISTER ADDRESS SETUPS 


5270 
















5271 












.ENABL 


LSB 


5272 
















5273 


017506 


005201 






SETR15 


»: INC 


Rl 


5274 


017510 


005201 






SETR1* 


I: INC 


Rl 


5275 


017512 


005201 






SETR12 


1: INC 


Rl 


5276 


017514 


005201 






setri; 


!: INC 


Rl 


5277 


017516 


005201 






SETR11 


: INC 


Rl 


5278 


017520 


005201 






SETR1C 


1: INC 


Rl 


5279 


017522 


005201 






SETR9 


INC 


Rl 


5280 


017524 


005201 






SETR8 


INC 


Rl 


5281 


017526 


005201 






SETR7 


INC 


Rl 


5282 


017530 


005201 






SETR6 


INC 


Rl 


5283 


017532 


005201 






SETR5 


INC 


Rl 


5284 


017534 


005201 






SETR4 


INC 


Rl 


5285 


017536 


005201 






SETR3 


INC 


Rl 


5286 


077540 


005201 






SETR2 


: INC 


Rl 


5287 


017542 


005201 






SETR1 


INC 


Rl 


5288 


017544 


110167 


000007 




SETRO 


HOVB 


Rl ,10$ .-SAVE ADDRESS 


5289 


017550 


005001 








CLR 


Rl 


5290 


017552 


004067 


177672 






JSR 


RO.SETUPR ;SET UP GEN REG ADD SPACE 


5291 


017556 


002 








.BYTE 


GENSPC 


5292 


017557 


000 






10$: 


.BYTE 


;NOTE:MUST BE READ/WRITE* ••• • 


5293 
















5294 












.DSABL 


LSB 



CIO 



Sequence 119 



ZZ-ESKAA-10.1 
V10-01-L 
ACTIONS FOR 



5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 



ACTIONS FOR SYMBOLIC ADDRESSES 
MACRO V05.03 Friday 25-Apr-86 
SYMBOLIC ADDRESSES 



D 10 



10:56 Page 71 



20-MAY-1986 



Fiche 1 Frame D10 



Sequence 120 



017560 
017566 
017572 

017574 
017576 
017600 
017604 
017610 
017614 
017620 
017622 
017626 
0T632 
017634 
017636 
017642 
017644 

017646 
017650 
017654 
017656 
017664 
017670 
017672 
017676 
017702 

017704 
017710 
017714 
017716 
017720 



116767 
012700 
000446 

005727 
000261 
016700 
016701 
004767 
116702 
100004 
116702 
110267 
103405 
006302 
067200 
005501 
000407 

006302 
167200 
005601 
052767 
105767 
001333 
010067 
01.0167 
000207 

012700 
012701 
012021 
012021 
000207 



.SBTTL ACTIONS FOR SYMBOLIC ADDRESSES 
.ENABL LSB 



002722 015634 
036572' 



016766 
016764 
165522 
015602 



002660 
C15570 



005266' 



005266' 

000400 
015525 

G16706 
016704 



022466' 
036604" 



015514 



SETLSA: MCVB 
MOV 
BR 

SETPLS: TST 
SETMNS: SEC 
MOV 
MOV 
JSR 
MOVB 
BPL 
MOVB 
MOVB 
20$: BCS 
A5L 
ADF 
AD. 
BR 

30$: ASL 
SUB 
SBC 
BIS 

40$: TSTB 
BNE 

SETOUT: MOV 
MOV 
RTS 

SETLSD: MOV 

50$: MOV 

MOV 

MOV 

RTS 



LASADS.CURADS 
#LASADD.R0 

50$ 

(PC)* 

LASADD.RO 

LASADD*2.R1 

PC.SETLNH 

CURADS.R2 

20$ 

LASADS.R2 

R2.CURADS 

30$ 

R2 

aADUPTB(R2).R0 

Rl 

40$ 

R2 

aADUPTB(R2).R0 

Rl 

JMINSAD.TCONTL 

RPTFLG 

SETLSA 

RO.EFFADR 

R1.EFFADR*2 

PC 

fLASDAT.RO 

fEFFADR.Rl 

<R0)*.(R1)* 

(R0)*.(R1)* 

PC 



.-POINT RO TO 'LAST ADDRESS* USED 



SET ADDRESS TO 'NEXT' ADDRESS 

SET ADDRESS TO 'PRECEEDING' ADDRESS 

RO GETS LAST ADDRESS USED 

Rl GETS MSB'S 

SET 'LNHDAT' TO LENGTH OF DATA IN BYTES 

R2 GETS CURRENT ADDRESS SPACE 

BR IF ADDRESS SPACE SPECIFIED BY QUALIFIER 

USE LAST SPACE INSTEAD 

SET CURRENT ADDRESS TO LAST ADDRESS SPACE 

BR IF TO DECREMENT ADDRESS 

:UPDATE ADDRESS CORRECT AMOUNT 
;R1 GETS ANY CARRY 



REDUCE ADDRESS BY PROPER AMOUNT 

REDUCE Rl BY CARRY 

REMEMBER THE BACKWARD ADDRESSING 

TEST FOR REPEAT SET 

BR IF REPEAT. SET ADDRESS BACK 

SET UP CURRENT ADDRESS 



USE LAST DATA AS NEXT ADDRESS 
POINT Rl TO ADDRESS 
SET UP ADDRESS 



.DSABL LSB 



ZZ-ESKA* 


1-10.1 


V10-01-L 




RECOGNITION ST 


5337 




5338 




5349 




5350 




5351 




5352 




5353 




5354 




5355 




5356 




5357 




5358 




5359 




5360 




536! 




5362 




5363 


017722 


5364 


017726 


5365 


017732 


5366 


017736 


5367 


017743 


5368 


017747 


5369 


017753 


5370 


017756 


5371 


C17757 


5372 


017763 


5373 


017767 


5374 


017773 


5375 


017777 


5376 


020004 


5377 


020010 


5378 


020014 


5379 


020020 


5380 


020024 


5381 


020027 


5382 


020032 


5383 


020036 


5384 


020041 


5385 


020044 


5386 


020047 


5387 




5388 




5389 




5390 


020051 


5391 


020054 


5392 


020057 


5393 


020063 


5394 


020067 


5395 


020073 


5396 


020077 


5397 


020103 


5398 


020106 


5399 


020112 


5400 


020115 


5401 


020120 



RECOGNITION STRINGS 

HACRO V05.03 Friday 25-Apr-86 10:56 Page 72 



E 10 



2Q-MAY-1986 



Fiche 1 Frame E10 



Sequence 121 



100 



SBTTL RECOGNITION STRINGS 



NOTE: EACH CHECK STRING MUST BE OF THE FORH *RST X.Y' WHERE BOTH X AND Y 
ARE NON-BLANK. 
X* IS THE CHARACTERS THAT MUST MATCH THE INPUT STRING 
•Y* IS THE CHARACTERS THAT MAY FOLLOW 'X* IN THE INPUT STRING. BUT 
ARE NOT REQUIRED FOR RECOGNITION. IF THE INPUT STRING 
DOES CONTAIN THESE CHARACTER THEN THEY MUST MATCH. 
EXCEPTION: CHECK STRING THAT BEGIN WITH A DELIMITERCSEE 'TESTND' FOR 
THE DEFINITION OF A DELIMITER). NEED BE ONLY ONE CHARACTER 

;COMMAND NAME STRINGS 



LONG 



COBOOT: 


RST 


B.OOT 


COCLEA: 


RST 


CL.EA 


COCONT: 


RST 


C.ONT 


CODEPO: 


RST 


D.EPOS 


COEXAM: 


RST 


E.XAM 


COHALT: 


RST 


H.ALT 


COHELP: 


RST 


HE.L 


COINDI: 


.BYTE 


'a 


COINIT: 


RST 


I. NIT 


COL INK: 


RST 


LI.NK 


COLOAD: 


RST 


L.OAD 


CONEXT: 


RST 


N.EXT 


COOVER: 


RST 


O.VERL 


COPERF: 


RST 


P. ERF 


COQCLE: 


RST 


O.CLE 


COREBO: 


RST 


REB.O 


COREPE: 


RST 


R.EPE 


COSET: 


RST 


SE.T 


COSHOW: 


RST 


SH.O 


COSTAR: 


RST 


S.TAR 


COTEST: 


RST 


T.ES 


COUNJA: 


RST 


U.NJ 


COHAIT: 


RST 


HA. I 


COWCS: 


RST 


W.C 




;NON- 


COMMAND R 


NCAP: 


RST 


AP.X 


NCBUS: 


RST 


B.US 


NCBYTE: 


RST 


B.YTE 


NCCLOC: 


RST 


C.LOC 


NCCOMD: 


RST 


C.OMM 


NCCONS: 


RST 


CO.NS 


NCDEFA: 


RST 


D.EFA 


NCDONE: 


RST 


D.ON 


NCDXl : 


RST 


DXl. : 


NCFAST: 


RST 


F.AS 


NCFILL: 


RST 


F.IL 


NCFLOP: 


RST 


F.LOP 



ZZ-ESKAA-10.1 RECOGNITION STRINGS 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

RECOGNITION STRINGS 



F 10 



5402 


020124 




5403 


020127 




5404 


020133 




5405 


020136 




5406 


020142 




5407 


020146 




5408 


020154 




5409 


020157 




5410 


020163 




5411 


020167 




5412 


020173 




5413 


02C176 




5414 


020201 




5415 


020205 




5416 


020211 




5417 


020214 




5418 


020217 




5419 


020222 




5420 


020225 




5421 


020230 




5422 


020233 




5423 


020236 




5424 


020241 




5425 


020244 




5426 


020247 




5427 


020252 




5428 


020256 




5429 


020262 




5430 


020266 




5431 


020272 




5432 


020276 




5433 


020302 




5434 


020306 




5435 


020312 




5436 


020316 




5437 


020320 




5438 


020324 




5439 


020330 




5440 


020334 




5441 


020340 




5442 


020344 




5443 


020350 




5444 


020353 




5445 






5446 






5447 






5448 


020357 


054 


5449 


020360 


072 


5450 


020361 


015 


5451 


020362 




5452 


020363 




5453 


020364 




5454 


020365 




5455 


020366 


075 


5456 


020367 


020 



200 



NCFP: 

NCGENE: 

NCHEX: 

NCIDBU: 

NCINST: 

NCINTEt 

NCIR: 

NCLONG: 

NCNORM: 

NCOCTA: 

NCPC: 

NCPSL: 

NCPHYS: 

NCPROG: 

NCQUAD: 

NCRO 

NCR1 

KCR2 

NCR3: 

NCR4 

NCR5 

NCR6 

NCR7 

NCR8: 

NCR9 

NCR10 

NCR11 

NCR12 

NCR13 

NCR14 

NCR15 

NCRELO: 

NCSLOW: 

NCSOMM: 

NCSP: 

NCSTAT: 

NCSTEP: 

NCTERM: 

NCVBUS: 

NCVERS: 

NCVIRT: 

NCHCS: 

NCHORD: 



NCCOMM: 

NCCOLO: 

NCEOL: 

NCASTK: 

NCPLUS: 

NCCMNT: 

NCMNUS: 

NCEQU: 

COCNTP: 



RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 



Page 72-1 



FP.X 

G.ENE 

H.EX 

ID.BU 

I.NST 

I.NTERN 

IR.X 

L.ONG 

N.ORM 

O.CTA 

PC.R 

P.SL 

P.HYS 

P.ROG 

Q.UA 

RO.X 

Rl.X 

R2.X 

R3.X 

R4.X 

R5.X 

R6.X 

R7.X 

R8.X 

R9.X 

R10.X 

Rll.X 

R12.X 

R13.X 

R14.X 

R15.X 

R.ELO 

S.LOU 

SO. MM 

S.P 

S.TAT 

S.TEP 

T.ERM 

VB.US 

V.ERS 

V.IRT 

WC.S 

W.ORD 



20-MAY-1986 



Fiche 1 Frame F10 



Sea 



;NOTE:THE R IS A DUMMY USED TO SATISFY vrfc, 



.•MISCELLANEOUS AND PUNCTUATION STRINGS 



.BYTE 

.BYTE 

.BYTE 

RST 

RST 

RST 

RST 

.BYTE 

.BYTE 



54 

15 

« 



20,200 ;(CONTROL-P) 















G 10 








ZZ-ESKAJ 


i-lO.l REGOGNITION 


STRINGS 








20-MAY-1986 


Fiche 1 Frame G10 


Sequence 123 


V10-01-L 


MACRO V05 


.03 


Fr iday 


25 


-Apr-86 10:56 P 


age 72-2 








REGOGNITION STRINGS 


















5457 




















5458 










.-APT SPECIFIC CHECK STRINGS 






5459 




















5460 


020371 








COENAB: RST 


EN, ABLE 








5461 


020377 








CODISA: RST 


DI. SABLE 








5462 


020406 








COXLOA: RST 


X.LOAD 








5463 


020413 








NCTALK: RST 


T.AL 








5464 


020416 








NCLOCA: RST 


L.OCAL 








5465 


020423 








NCCNTL: RST 


CON.TROL 








5466 


020432 








NCCOPY: RST 


COP.Y 








5467 


020436 








NCECHO: RST 


E.CHO 








5468 


020442 








NCCARR: RST 


CARRIER 








5469 


020451 








NCERRO: RST 


E.RROR 








5470 


020456 








NCREMO: RST 


R. EMOTE 








5471 


000073 








APTSTR= 


.-COENAB 








5472 










.EVEN 











ZZ-ESKAA-10 .1 TEXT STRING STORAGE 

V1O-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

TEXT STRING STORAGE 



H 10 



Page 73 



20-MAY-1986 



Fiche 1 Frame HI 



Sequence 124 



5474 




5499 




5500 


020464 


5501 


020475 


5502 


020510 


5503 


020530 


5504 


020551 


5505 


020565 


5506 


020601 


5507 


020640 


5508 


020662 


5509 


020704 


5510 


020710 


5511 


020712 


5512 


020714 


5513 




5514 


020717 


5515 


020737 


5516 


020765 


5517 


021013 


5518 


021032 


5519 


021052 


5520 


021075 


5521 


021113 


5522 


021130 


5523 


021145 


5524 


021171 


5525 


021203 


5526 


021221 


5527 




5528 


021252 


5529 


021254 


5530 


021262 


5531 


021272 


5532 


021301 


5533 


021310 


5534 


021314 


5535 


021322 


5536 


021331 


5537 


021336 


5538 


021342 


5539 


021347 


5540 


021354 


5541 


021364 


5542 


021371 


5543 


021376 


5544 


021403 


5545 


021407 


5546 


021413 


5547 


021420 


5548 


021425 


5549 


021431 


5550 


021435 


5551 


021442 


5552 


021447 



.SBTTL TEXT STRING STORAGE 



CONVER: 

BOTING: 

AUTRES: 

WCSLOD: 

ALRDHA: 

HLTMES: 

STRRUN: 

TMEOUT: 

CANTDO: 

OPNPAR: 

CLSPAR: 

DASH : 

THOSPC: 

UNKERR: 
HEMMAN; 
CONSER: 
RESCOM: 
INSTIV; 
CPDBLEj 
1LIEVC: 
NOWCSU: 
EINTPE: 
KLINST: 
ERRCHM; 
ERRPRG: 
MHTMOU; 



SPMES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 

HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 
HES 



\PVER.\SVER.\PEDT.\SEDT 

< (B00TING)> 

< (AUTO-RESTART) > 

< (RELOADING HCS)> 

< CPU HALTED> 

< HALTED AT > 

< ?CPU NOT IN CONSOLE WAIT LOOP> 

< ?NO CPU RESPONSE> 
<. FUNCTION ABORTED) 

< (> 
<)> 
<- > 



?MIC-ERR.CODE=> 
7MEM-MAN FAULT. CODE=> 
7MIC-ERR ON FUNCTION) 
INIT SEQ DONE> 
7INT-STK INVLD> 
?CPU DBLE-ERR HLT> 
TILL I/E VEO 
?NO USR WCS> 
INT PENDING) 
HALT INST EXECUTED) 
7CHM ERR) 
7INT-REG ERR) 
7MICRO-MACHINE TIHE OUT) 



TAB: 




HES 


< > 


CPUIS: 


HES 


< CPU 


RUNNIN: 


HES 


<RUNNING> 


HLTED: 


HES 


<HALTED> 


SOHMiS: 


HES 


<,SOMM > 


ISSET: 


HES 


<SET> 


ISCLR: 


HES 


<CLEAR> 


STPEQU: 


MES 


<.STEP=) 


STINST: 


HES 


<INST> 


STBUS: 


MES 


<BUS> 


STSTA: 


MES 


<STAT> 


NRHALL: 


MES 


<NONE> 


CLKEQU: 


MES 


<. CLOCK:) 


CLKNOR: 


MES 


<NORH> 


CLKFAS: 


MES 


<FAST> 


CLKSLO: 


MES 


<SLOW> 


ORADIX: 


MES 


<OCT> 


OHEX 




MES 


<HEX> 


SPHY 




MES 


<PHYS> 


SVIR 




MES 


<VIRT> 


SGEN 




MES 


<GEN> 


SINT 




MES 


<I NT > 


SIDB 




MES 


<IDBU> 


SCON 




MES 


<CONS) 


SVBU 




MES 


<VBUS> 



ZZ-ESKAA-10 
V10-01-L 
TEXT STRING 
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I 10 
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20-MAY-1986 



Fiche 1 Frame 110 



Sequence 125 



5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 



021454 
021462 
021470 
021476 
021505 
021513 
021520 
021525 
021532 

021537 
021544 
021551 
021556 
021563 
021570 
021575 
021602 

021605 
021610 
021625 
021633 
021641 

021647 
021653 
021672 

021712 
021732 
021753 
021776 
022013 
022031 

022054 
022110 
022146 
022157 
022165 
022201 
022242 
022300 
022313 
022321 
022330 

022347 

022355 
022373 
022376 
022401 
022404 



ADDEQU: MES 

RADEQU: MES 

DATEQU: rIES 

FILLEQ: MES 

RELEQU: MES 



DBYT 
DURD 
DING 
DQAD 



MES 

MES 
MES 
MES 



PHYIDN: MES 

GENIDN: MES 

INTIDN: MES 

IDBIDN: MES 

CONIDN: MES 

VBUIDN: MES 

IRIDN: MES 

PSLSTR: MES 

CLKERR: MES 

CLOCKS: MES 

UPCEQU: MES 

APCEQU: MES 

CPTN: MES 

CRMESQ: MES 

ISANER: MES 

ISINCO: MES 

FLNMER: MES 

NOSUFL: MES 

FLPERR: MES 

LOISDN: MES 

BYTESL: MES 

MICUSL: MES 



DISERR 

NOTREM 

XERR1 

XERR2 

XERR3 

WCNEFP 

WCNEPC 

PCSEQU 

WCSEQU 

FPLEQU 

GHMES: 

;SPEC1 

CONEQU 



; MES 

: MES 

MES 

MES 

MES 

: MES 

: MES 

:MES 

: MES 

: MES 

MES 

: MES 

; MES 



Oil 
105 
124 
012 



BADLIN: MES 
074 100 INDEX1: .BYTE 
130 111 
076 015 



<.ADD=> 

< RAD = > 

<.DAT=> 

<.FILL=> 

<.REL=> 

<BYTE> 

<UORD> 

<LONG> 

<QUAD> 



P 
G 
I 

ID 
C 

VB 

IR 

> 



< ?> 
<CPU CLK STOP> 

< UPC=> 

< APC=> 

< CPT0> 



.-NOTE THIS MESSAGE MUST BE IN R/H STORAGE(NEVER ROM) 



<• IS INCORRECT) 
<• IS INCOMPLETE> 

< ?FILE NAME ERR> 

< ?FILE NOT FOUND> 

< TFLOPPY ERR.CODE=> 

< LOAD DONE. > 

< BYTES LOADED> 

< MICROWORDS LOADED) 

<?CANT DISABLE BOTH FLOPPIES) 

< 7REMOTE ACCESS NOT SUPPORTED) 
<?COMMAND> 

<?DATA> 

< CHKSUM ERR) 

<?WARNING-WCS S FPLA VER MISMATCH) 
<?FATAL-WCS S PCS VER MISMATCH) 

< VER: PCS=> 

< UCS=> 

< FPLA=> 

< KE780 PRESENT) ; for pre- 

< WARNING:: PRE-RELEASE CONSOLE > ; include 

< CON=> 

< 7IND-COM ERR> 
9.,'<.'a.'E.'X.'I . *T. •>. 15.12 



release 
this 



comment out 



J 10 



ZZ-ESKAA-10.1 


TEXT STRING STORAGE 




20-MAY-1986 


VIO-Ol-l 


MACRO V05.03 Fri 


day 25 


-Apr-86 10:56 P 


age 73-2 


TEXT STRING STORAGE 








5605 


022405 


006 074 


100 


EOFHES: .BYTE 


6.'<. , a.'E. , 0. , F.'> 




022410 


105 117 


106 








022413 


076 








5606 












5607 


022414 


005 015 


012 


CONPMP: .BYTE 


5.15.12. *>.*>.*> 




022417 


076 076 


076 






5608 


022422 


005 015 


012 


LNKPMP: .BYTE 


5. 15. 12. •<.'<.•< 




022425 


074 074 


074 






5609 












5610 


022430 


002 




CRMES: .BYTE 


2 


5611 


022431 


015 012 




TIMTRP: .BYTE 


15.12 


5612 


022433 


077 124 


122 


.ASCII 


\?TRAP-4. RESTARTING CONSOLE\ 




022436 


101 120 


055 








022441 


064 054 


122 








022444 


105 123 


124 








022447 


101 122 


124 








022452 


111 116 


107 








022455 


040 103 


117 








022460 


116 123 


117 








022463 


114 105 








5613 




022465' 




TIHEND=. 




5614 








.EVFN 





Fiche 1 Frame J10 



Sequence 126 



ZZ-ESKAA-10.1 TEMPORARY STORAGE 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 74 

TEMPORARY STORAGE 



K 10 



20-MAY-1986 



Fiche 1 Frame K10 



Sequence 127 



5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 



5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 



022466 
022472 
022475 
022500 
022503 

022505 
022506 
022507 
022510 
022511 
022512 
022513 
022514 

022516 
022520 
022522 
022526 
022532 



022536 
022540 
022542 



000000 
000000 
000001 
000002 
000003 
000004 
000005 
000006 

000000 
000001 
000002 
000003 

000000 
000 
102 
056 
104 

000 
000 
000 
000 
000 
000 
000 
000 

000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 



000000 
000 
117 
103 
015 



060 
117 
115 



000000 
000000 

000000 



LASDAT: 
BOOSTR: 



.SBTTL TEMPORARY STORAGE 

HEXRAD = .-WARNING: DO NOT CHANGE THESE DEFINITIONS WITHOUT CAREFUL THOUGHT 

PHYSPC=0 

VIRSPC=1 

GENSPC=2 

INTSPC=3 

IDBSPC=4 

C0NSPC=5 

VBUSPC=6 

BYTLNH=0 
WRDLNH=1 
LNGLNH=2 
QADLNH=3 

.WORD 
.BYTE 



0.0 



.-LAST DATA USED BY EXAM OR DEPO 



0.0,'0. , B.'0.'0.'..'C.'M.'D.15 



CNVTDN: 


.BYTE 





LASADS: 


.BYTE 





ERRCCD: 


.BYTE 





TMPRAD: 


.BYTE 





NOECHO. 


.BYTE 





LINKNG 


. .BYTE 





SAHTMO 


: .BYTE 





LODFLG 


: .BYTE 
.EVEN 


; 


LNHDAT 


: .WORD 





LNHCOD 


: .WORD 





RELOCA 


: .WORD 


0.0 


SAVEFF 


: .WORD 


0.0 


SAVCOD 


: .WORD 


0.0 



.•ADDRESS SPACE CODE FOR CONTENTS OF 'EFFADR* 
.•USED FOR PRINTING ERROR CODES 

BOOT ECHO SUPPRESSION FLAG 

NON-ZERO WHEN LINKING IN PROGRESS 

NON-ZERO WHEN MICROMACHINE TIME OUT SEEN AND REPORTED 

•LOAD-A-FILE* FLAG (EDIT-21B) 

CURRENT DATA LENGTH IN BYTES 

CODED DATALENGTK FOR MICRO-ROUTINES 

RELOCATION REGISTER 

.•SAVES 'HALT REASON' CODE FOR AUTO-RESTARTSC V02-01 . 



THIS TABLE WAS DELETED IN VERSION 6.1. A VBUS EXAMINE WILL NOW PRINT 16(D) 
BYTES OF DATA INDEPENDENT OF THE CHANNEL NUMBER 



VBUSCD 





.•TABLE OF 


" VBUS CHANNEL LENGTHS 


.BYTE 


15 


CH 


.BYTE 


10 


CH 1 


.BYTE 


15 


CH 2 


.BYTE 


14 


•CH 3 


.BYTE 


16 


•CH 4 


.BYTE 


20 


•CH 5 


.BYTE 


6 


•CH 6 


.BYTE 


10 


•CH 7 



IK BYTES 



.•LOADER TEMPS 

CURRSEC:.WORD 

SECSLF: .WORD 

BUFFRP: .WORD 



CURRENT FLOPPY SECTOR 

* OF SECS REMAINING IN FILE 

POINTER INTO SECTOR BUFFER 



ZZ-ESKAA-10.1 TEMPORARY STORAGE 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

TEMPORARY STORAGE 



L 10 



Page 74-1 



20-MAY-1986 



Fiche 1 Frame L10 



Sequence 128 



5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 



022544 
022546 
022546 
022552 
022554 



000000 

000000 
000000 
000000 



000000 



022556 000000 
022560 000000 
022562 000000 



022564 000000 



BYTSLF 
BYTSLD 
FILENH 
EXTENS 
FILPNT 



INDBYT 
INDLFT 
INDSEC 



.WORD 

WORD 
WORD 
WORD 



0.0 






;* BYTES LEFT IN SECTOR BUF 

.-FILE NAME STORAGE (RAD50) 
.•EXTENSION 



DO NOT REORDER. FROM HERE , 

WORD ;PNTR INTO INDIRECT COMMAND BUFFER 
WORD :t SECS LEFT IN IND FILE 
WORD .-CURRENT SECTOR IN BUFFER 
TO HERE 



SECLOD: .WORD 



.•REMEMBERS SECTOR IN IND BUF 



ZZ-ESKAA-10.1 TEMPORARY STORAGE 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 Page 75 

TEMPORARY STORAGE 



H 10 



20-MAY-1986 



Fiche 1 Frame M10 



Sequence 129 



5683 






5684 






5685 




022600 


5686 




000400 


5687 






5689 






5690 


022566 




5691 






5692 






5693 






5694 






5695 


023200 




5696 






5697 






5698 


023200 


140056 


5699 


023202 


000340 


5700 


023204 


013710' 


5701 


023206 


oooooo 


5702 


023210 


140056 


5703 


023212 


000340 


5704 






5705 




000002 


5709 






5710 


023224 


000026 


5711 


023226 


oooooo 


5712 


023230 


140016 


5713 


023232 


000340 


5714 






5715 




000005 


5719 






5720 


023260 


032356' 


5721 


023262 


000340 


5722 


023264 


032300' 


5723 


023266 


000340 


5724 






5725 




000002 


5729 






5737 


023300 


140004 


5741 


023302 


000340 


5742 






5743 




000017 


5747 






5748 


023400 




5749 




000015 


5753 






5754 


023464 


140026 


5755 


023466 


000340 


5756 






5757 




000002 


5761 






5762 


023500 


032560' 


5763 


023502 


000340 


5764 


023504 


140012 


5765 


023506 


00C?4Q 


5766 







.•CONSOLE DEFINITIONS FOR TEMPORARY STORAGE 



BUFO 



BUF1 



USRBUF=22600 
USRBSZ=256. 



FILLTO 23200 



;256 BYTE BUFFER (22600 TO 23177) 
.-SIZE OF USER BUFFER IN BYTES 



.-NOTE: BUFO IS PLACED ON A 128 BYTE BOUNDARY FOR OVERLAY 
CUT-OFF PURPOSES(SEE 'CUTOFF '. 'LASTOR' ) 

.•INDIRECT COMMAND FILE BUFFER 

.-NOTE: CONSOLE INTERRUPT VECTOR CONTENTS ARE STORED HERE FOR 

; USE IMMEDIATELY AFTER A CONSOLE BOOTSTRAP OR OVERLAY 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 


OTHRTP ; 
340 ; 
ODDADD ; 
; 
OTHRTP • 
340 ; 




2 

4 

6 

10 

12 


.REPT 


2 




.UORD 
.UORD 
.UORD 
.UORD 


.-BUF0-2 


EMTSER 
340 


24CP0UER FAIL) 

26 

30 

32 


.REPT 


5 




.UORD 
.UORD 
.UORD 
.UORD 


KBDINT 
340 

PRTINT 
340 


•60 
-62 
•64 
•66 


.REPT 


2 




.UORD 
.UORD 


CLKSER 
340 


•100 
;102 


.REPT 


15. 




.•FLOPPY 
.REPT 


BUFFER SHARtD BY 
13. 


CONSOLE PROGRAM A 


.UORD 

.UORD 


DXPREI 
340 


;264(« : L0PPY) 
;266 


.REPT 


2 




.WORD 
.UORD 
.UORD 
.UORD 


CTXINT 
340 

CRXINT 
340 


;300 (CIB-TX READY) 

;302 

;304(CIB-RX DONE) 

;306 























N 


10 




- 






















ZZ-ESKAA-10 .1 


TEHPORARY 


STORAGE 


















20 


-MAY- 


-1986 




Fi 


che 


1 Frame 


N10 




Sequence 


130 


V10-01-L 


MACRO V05 


.93 


Frid 


ay 


25 


-Apr 


-86 


10:56 Page 75-1 






























TEMPORARY STORAGE 














































5783 023510 


036414* 














.WORD 


RTIINS 






























5784 023512 


000340 














. UORD 


340 






























5785 023514 


036414* 














.WORD 


RTIINS 






























5786 023516 


000340 














.WORD 


340 






























5788 
















































5789 


000014 














.REPT 


12. 






























5793 


000113 










LASTOR- 


:<.-BASE- 


-1000>/200 








.•COMPUTES 


MAX 


t OF 


SECTORS 


LOADABLE 


BY 


OVERLAY 




5794 

















































B 11 
ZZ-ESKAA-10.1 TEMPORARY STORAGE 20-HAY-1986 Fiche 1 Frame Bll Sequence 131 

V10-O1-L riACRO V05.03 Friday 25-Apr-86 10:56 Page 80 
TEMPORARY STORAGE 

7985 023600 FILLTO 32000 



ZZ-ESKAA-10.1 TEMPORARY STORAGE 

V10-01-L MACRO V05.03 Friday 25-Apr-86 10:56 

TEMPORARY STORAGE 



C 11 



Page 83 



20-MAY-1986 



Fiche 1 Frame CI 1 



Sequence 132 



8354 








8355 


032000 


000207 




8356 


032002 






8357 


032002 


020127 


036324' 


8358 


032006 


001006 




8359 


032010 


005767 


004116 


8360 


032014 


001003 




8361 


032016 


112767 


000001 


8362 


032024 


000207 





004264 



tNTluK: 


RTS 


PC 


TSTHiF: 


.-PART 


OF 'KLUDG2'* 




CMP 


R1.#LTEH!>* 




BNE 


10$ 




TST 


HfJTQUE 




BNE 


10$ 




MOVB 


#1 .ECHOIN 


10$: 


RTS 


PC 



'KLUDG2' ***** !!!!!!******!!!!!!**'** 



ARE HE LOADING LOCAL ECHO BUFFER? 

BR IF NOT 

ANY MESSAGES BEING PRINTED? 

BR IF YES 

ENTER 'ECHO IN PROGRESS' STATE 



ZZ-ESKAA-10 
V10-01-L 



VIO-Ol-L 
MACRO V05.03 



D 11 



Friday 25-Apr -86 10:56 Page 84 



20-MAY-1986 



Fiche 1 Frame Dll 



Sequence 133 



8367 

8368 

8369 

8370 

8371 

8372 

6373 

8374 

8375 

8376 

8377 

8378 

8379 

8380 

8381 

8382 

8383 

8384 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 



.SBTTL 
.SBTTL 



CONSOLE SWITCH POSITION CHECKER 



032026 
032026 
03203C 
032034 
032040 
032044 
032046 
032052 
032054 
032056 
032060 
032062 
032064 
032066 
032072 



010146 
013700 
042700 
105767 
001014 
1/C9A7 
001420 
005001 
005201 
000240 
000240 
001374 
013700 
042700 



THIS ROUTINE CHECKS FOR A CHANGE IN THE POSITION OF THE CONSOLE MODE SWITCH 
THE ALGORITHM USED IS AS FOLLOWS 

IF<LAST POSITION OF SWITCH=CURRENT POSITION) THEN<EXIT> ELSE<ENTER NEW MODE> 

CONSOLE MODE CHANGE ACTIONS: 

CHANGING THE POSITION OF THE CONSOLE MODE SWITCH HILL 
HAVE THE FOLLOWING EFFECTS: 

A) CONSOLE SWITCH ENTERS 'LCCAL' POSITION: 

DDISABLE 'LOCAL COPY'. 'LOCAL CONTROL' . 'CARRIER ERROR REPORTING*. 
AND 'TALK MODE ECHO*. 

B) CONSOLE SWITCH ENTERS 'LOCAL-DISABLE* POSITION: 

1) SAME AS *A-r ABOVE 

2) FORCE PROGRAM I/O MODE 

3) CLEAR REMOTE TERMINAL INTERRUPT ENABLES 

4) CLEAR 'DATA TERMINAL READY' ON REMOTE INTERFACE 

C) CONSOLE SWITCH ENTERS 'REMOTE-DISABLE* POSITION 

1) FORCE PROGRAM I/O MODE 

2) ENABLE INTERRUPTS FROM REMOTE TERMINAL INTERFACE 

3) ASSERT 'DATA TERMINAL READY' ON REMOTE INTERFACE 

4) FORCE 'LOCAL COPY' MODE FOR CUSTOMER SECURITY 

D) CONSOLE SWITCH ENTERS 'REHOTE' POSITION 

1) ENABLE INTERRUPTS FROM REMOTE TERMINAL INTERFACE 

2) ASSERT 'DATA TERMINAL READY' ON REMOTE INTERFACE 

NOTE: MODE BITS IN *MCS' REGISTER • (BITS AND 1) 

0=LOCAL.1=LOCAL-DI SABLE. 2^REM0TE.3=REH0TE DISABLE 

NOTE: CONTENTS OF RO ARE DESTROYED BY THIS ROUTINE 

CHKSWH: ;CONSOLE MODE SWITCH TRANSITION CHECKER 



173034 
177774 
004720 

037750* 



5$ 



173034 
177774 



MOV 


Rl.-(SP) 


MOV 


a#MCS,R0 


BIC 


#177774, R0 


TSTB 


SETSWH 


BNE 


10$ 


CMPB 


R0.LASPOS : 


BEQ. 


30$ 


CLR 


Rl 


INC 


Rl 


NOP 




NOP 




BNE 


5$ 


MOV 


aiMCS.RO 


BIC 


#177774, R0 



R0 GETS MCS REGISTER CONTENTS. 

CLEAR ALL EXCEPT MODE BITS. 

FORCE A SET-UP REGARDLESS ? 

YES. GO DO IT. 

LAST PuSITIONrCURRENT? 

BR IF NO CHANGE DETECTED. 

IN IT 500 MS TIMER. 

STALL FOR 500 MS TO ENSURE THAT WE ARE NOT 

STILL MOVING KEYSWITCH. OTHERWISE WE MAY DO 

A FALSE SET UP FOR A DISABLE POSITION. 

GET CURRENT SWITCH MODE AGAIN. 
SAVE ONLY THE MODE BITS. 



ZZ-ESKAA-10 .1 

V10-01-L 
CONSOLE SWITCH 



CONSOLE SWITCH POSITION CHECKER 
MACRO V05.03 Friday 25-Apr-86 10:56 Page 84-1 
POSITION CHECKER 



E 1! 



20-MAY-1986 



Fiche 1 Frame Ell 



Sequence 134 



8422 
8423 
8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 
8432 
8433 



032076 
032102 
032106 
032110 
032114 
032120 
032126 
032130 
032136 
032140 

032142 
032150 



105067 
110067 
006300 
004770 
105067 
032737 
001403 
112767 
012601 
000207 

032160 
032250 



004662 
037750' 

032142* 
037751* 

000004 



173034 



000377 037751 



10$: CLRB SETSUH 

MOVB RO.LASPOS 

ASL RO 

JSR PC.aHODCHG(RO) 

30$: CLRB AUTFLG 

BIT #AUTORS.8#MCS 

BEQ 40$ 

HOVB #377. AUTFLG 

40$: MOV CSP)*.R1 

LOCOUT: RTS PC 



RESET FORCE SET-UP FLAG. 

SAVE NEH MODE AS LAST MODE 

USE NEW MODE AS OFFSET 

INTO SETUP ROUTINE 

INIT AUTO RESTART FLAG 

TEST AUTO-RESTART SWITCH BIT 

BR IF AUTO-RESTART OFF 

HAKE SOFT AUTO RESTART FLAG REFLECT SWITCH 



032152' 032270' MODCHG: .WORD ELOCAL .ELOCDS .EREMOT .EREMDS 



ZZ-ESKAA-10.1 CONSOLE SWITCH MODE CHANGE 
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CONSOLE SWITCH MODE CHANGE 



F 11 



20-MAY-1986 



Fiche 1 Frame Fll 



Sequence 135 



105267 003437 

"*G410 




8466 v-.- .' 

8469 032214 

8470 032220 

8471 032222 

8472 032226 

8473 032226 

8474 032234 

8475 032242 
8476 

8480 032246 
8481 
8482 

8483 032250 

8484 032250 

8485 032254 
8486 
8487 

8488 032262 

8489 032270 

8490 032270 

8491 032276 
8495 



001775 
005077 

042767 
052767 
105067 

000207 



105267 
042767 



O&iilOO 

337772' 

U377M- 

101400 
002000 
004024 



003341 
100600 



052 76 g\ 3 000 

000207 



ELOCDS 



ELOCAL 



173034 10$: 



77^!* 



03:76 
• 0'-' "?. 



003250 
003242 



T:U$: 
30$: 
FLOCXX 



ERtirtDS: 



EREMOT: 



.SBTTL CONSOLE SWITCH MODE CHANGE 

.•CONSOLE MODE SWITCH TRANSITION SET-UP ROUTINES 



ENABL LSB 
.-ENTER LOCAL DISABLE MODE 



INCB 
BR 



PGMIOM 
20$ 



.•ENABLE PROGRAM I/O MODE 
.•SKIP THE LOCAL ENTRY DELAY 



NOTE: THE TIME DELAY INTRODUCED HERE BEFORE PERFORMING THE 
SET-UP FOR ENTRY INTO 'LOCAL' MODE IS TO ALLOW FOR 
THE FACT THAT THE CONSOLE MODE SWITCH READS AS 'LOCAL' 
WHEN THE SWITCH IS BETWEEN VALID POSITIONS. THIS 
DELAY OF ONE-HALF SECOND GIVES A PERSON , IME TO SWITCH 
BETWEEN 2 VALID POSITIONS. WITHOUT GETTING A SET-UP 
FOR 'LOCAL* MODE IN BETWEEN POSITIONS. ( V0108 EDIT). 
IF. DURING THE DELAY. THE CO* >OL DETECTS THAT THE MODE 
HAS CHANGED FROM 'LOCAL' TO >OK*-: OTHER MODE. THE SET-UP 
IS ABORTED. 

TIMING: THE LOOP BELOW STARTING AT 'iOi 
'20$'. TAKES 19.95 MICRO-SECONDS 
THEREFORE RO IS INITIALLY r ±~ .? 
A DELAY OF (19.95 * 2506: • -- 



. UP TO BUT NOT INCLUDING 
TO EXECUTE (-OR - 20*). 
TO -25062 (10) TO PROVIDE 
MILLI-SECONDS. EDIT (03-14-80) 



SWCTIM=-25062. 



MOV 

BIT 

BNF 

INu 

BNE 

TSTB 

BEO. 

BIC 

TSTB 

BEQ 

CLR 

BIC 
BIS 
CLRB 



#SWCTI ,R0 

#REMOT!LOCKD,^' 

LOCCJT 

RO 

10$ 

NOREMT 

ELOCXa 

#XMTR ,T ?Rr.ACSR 

aRMXCSk 

30$ 

aRMRCSR 



.RO GETS DELAY CCNSTANT FOR 1/2 SECOND 
HAS MODE CHANGED FROM LOCAL? 
BR IF YES AND ABORT SET-UP 
TIME DELAY DONE? 
BR IF NOT 

REMOTE INTERFACE THERE? 
BR IF IT IS NOT 

DISABLE REMOTE XMIT INTERRUPTS. 
DONE SENDING CURRENT CHAR? 
UAIT FOR IT TO COMPLETE. 
DISABLE REMOTE INTR AND DTR/RTS 



#REMECH!TLKMOD!PRNINH!ROFLAG.TCTFLG ;CLR REMOTE OPTION. 
*DISCAR!LOCCOP!LOCCNT.TCTFi_G ; ENABLE LOCAL OPTION BITS 
PROTOC .-CLEAR PROTOCOL MODF 



RTS PC 
.DSABL LSB 

;ENTER 'REMOTE-DiSABLE 

INCB PGMIOM 

BIC fREMDIS.TCTFLG 



BIS ILOCCOP.TCTFLG 
.-ENTER 'REMOTE' MODE 
TYPEMES #NOTREM..CR 
RTS PC 



MODE 



ENTER PROGR .M ,/0 MODE 

CLEAR 'USEf. f.lUEST ACTIVE'. 

PRINT-IKHI&, ■ . AND RUBOUT 

AND LOCAL C..4TROL SERVICE FLAGS. 

FORCE LOCAL COPY MODE 

;TYPE 'REMOTE ACCESS NOT SUPPORTED 
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CONSOLE SWITCH MODE CHANGE 

8580 



ZZ-ESKAA-10.1 
V10-01-L 
CONSOLE SWITCH 



8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

859U 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 

8601 

8602 

8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

8614 

8615 

8616 

8617 

8618 

8619 

8620 

8621 

8622 

8623 

8624 

8625 

8626 

8627 



032300 



CONSOLE SWITCH MODE CHANGE 

MACRO V05.03 Friday 25-Apr-86 10:56 Page 86 
MODE CHANGE 



H 11 



20-MAY-1986 



Fiche 1 Frame Hll 



Sequence 137 



032300 
032304 
032306 
032312 
032314 
032320 

032324 
032326 



032334 
032340 
032342 
032346 
032350 
032354 



105767 
001413 
005767 
001004 
105067 
000137 

010046 
010146 



005767 
001367 
005767 
001764 
105267 
000763 



KLUDG2: 



004004 

004020 

003770 
144474 



032330 000137 144512 



003572 
003764 
003734 



20$ 



THIS ROUTINE FIXES A PROBLEM INVOLVED WITH THE SEQUENCING OF 
ECHOES AND MESSAGES TO THE LOCAL TERMINAL. THE NORMAL 
CODE FOR THIS PROCESS IS IN ROM SO THE FIX MUST BE MADE HERE 
UNTIL A CHANGE IN ROM CAN BE MADE. 

BASICALLY THERE ARE TWO TYPES OF OUTPUT TO THE LOCAL TERMINAL 

A) 'MESSAGES' A STRING OF 1 OR MORE BYTES TO BE 
PRINTED AS ONE CONTIGUOUS STRING. 

B) 'ECHOES' SINGLE CHARACTERS TO BE PRINTED. 

THESE TWO TYPES OF OUTPUT ARE HANDLED BY DIFFERENT STRUCTURES: 
MESSAGES ARE KEPT IN A QUEUE. AND ECHOES ARE KEPT IN 
A RING BUFFER(FOR REASONS OF SYNCHRONIZATION BETWEEN 
LOCAL AND REMOTE TERMINAL RUNNING AT DIFFERENT SPEEDS.) 

THE PROBLEM BEING ADDRESSED BY THIS ROUTINE IS AS FOLLOWS: 

MESSAGES ARE GIVEN PRIORITY OVER ECHOES IN THE ROM ROUTINE 
THAT RESPONDS TO 'TX READY' INTERRUPTS. THIS WILL CAUSE 
A MESSAGE STRING TO APPEAR IN THE MIDDLE OF ECHOES IF 
THE MESSAGE GETS ISSUED WHILE ECHOES ARE IN PROGRESS. 
THIS ROUTINE CAUSES ECHOES TO FINISH BEFORE POINTING A 
MESSAGE AND VICE VERSA. 

ENTER BELOW ON EACH 'TX READY' INTERRUPT FROM LOCAL TTY INTERFACE. 

;E HOES IN PROGRESS? 

;BR IF NOT 

;ANY FURTHER ECHOES TO DO? 

;BR IF YES 

;CLEAR 'ECHOES IN PROGRESS' FLAG 

;ENTER ROM ROUTINE TO SERVICE INTERRUPT 

*&* CPRTBGN') 

;THIS DUPLICATES ROM ROUTINE ENTRY CONDITIONS 

;DITTO 
.***t*t**t*tt******'.t*t*i>it»»*****t******t**«»**t*t*t«*t*tt»t*tt*tt>tt***t 

■THIS IS THE MAJOR KLUDGE ! (ENTERING ROM AT FIXED ADDRESS) 
JMP a#144512 



MESSAGES TO PRINT? 

BR IF YES TO ENTER ROM 

ANY ECHOES TO PUMP OUT? 

BR IF NOT 

SET 'ECHOES IN PROGRESS' FLAG 

GO HANDLE ECHOS 





TSTB 


ECHOIN 




BEQ 


20$ 




TST 


LTEHBF+6 




BNE 


10$ 




CLRB 


ECHOIN 


5$: 


JMP 


a#144474 


10$: 


MOV 


RO.-(SP) 




MOV 


Rl.-(SP) 



TST 


WRTQUE 


BNE 


5$ 


TST 


LTEH5F*6 


BEQ 


5$ 


INCB 


ECHOIN 


BR 


10$ 



ZZ-ESKAA-10.1 
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MACRO V05.03 Friday 25-Apr-86 10:56 Page 87 
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20-MAY-1986 



Fiche 1 Frame 111 



Sequence 138 



8629 








8630 


032356 






8631 








8632 








8633 








8634 








8635 








8636 








8637 








8638 








8639 








8640 








8641 








8642 








8643 








8644 








8645 








8646 








8647 








8648 








8649 








8650 








8651 








8652 








8653 


032356 


010046 




8654 


032360 


017700 


037760* 


8655 


032364 


042700 


00020u 


8656 


032370 


032767 


000000 003134 


8657 


032376 


001425 




8658 


032400 


120027 


000020 


8659 


032404 


001011 




8660 


032406 


004737 


150070 


8661 


032412 


001060 




8662 


032414 


004777 


003734 


8663 


032420 


052767 


002000 003104 


8664 


032426 


000452 




8665 








8666 


032430 


004777 


003722 


8667 


032434 


032767 


001000 003070 


8668 


032442 


001444 




8669 


032444 


004777 


140072' 


8670 


03245G 


000441 




8671 








8672 


032452 


004737 


150070 


8673 


032456 


001407 




8674 


032460 


032767 


000000 003044 


8675 


032466 


001003 




8676 


032470 


004777 


003516 


8677 


032474 


000427 




8678 








8679 


032476 






8680 


032476 


105767 


003113 


8681 


032502 


001402 




8682 


032504 


000137 


144374 


8683 


032510 


120027 


000017 



KLUDG3: 



2$: 



5$ 



RMTENT 



6$: 



THIS ROUTINE FIXES TWO PROBLEMS WITH THE ROM KEYBOARD INTERRUPT 
SERVICE ROUTINE 'KBDBGN': 

1) RAPIDLY-REPEATED CONTROL-C'S WOULD CAUSE AN UNEXPECTED 
TRAP. THE CONSOLE NO LONGER RECOGNIZES CONROL-C, WITH 
NO USER REQUEST ACTIVE. AS A REBOOT. 

2) DUE TO A DISPARITY IN INTERPRETATION OF THE ORIGINAL 
INTENT. THE CONSOLE WOULD DISABLE 'TALK* ON RECEIPT 
OF A CONTROL-P FROM EITHER TERMINAL. DESPITE THE 
KEYSW1TCH POSITION. NOW WE WILL DISABLE ON A CONTROL-P 
FROM THE LOCAL TERMINAL ONLY IF THE KEYSWITCH IS NOT IN 
REMOTE. (REMOTE TERMINAL RESPONSE NOT AFFECTED BY CHANGE. ) 

IN ORDER FOR THIS ROUTINE TO WORK. WE HAVE TO ENTER ROM AT CERTAIN 
FIXED ADDRESSES. 



.ENABL LSB 

.•KEYBOARD INTERRUPT SERVICE. 
.-INTERRUPTS OFF THRU-OUT THIS ROUTINE 



MOV 


RO.-(SP) 




MOV 


aRBUF.RO 


GET THE CHARACTER AND STATUS BITS 


BIC 


f200.RO 


CLEAR PARITY BIT IF ANY 


BIT 


fTLKMOC.TCTFLG : 


IN TALK MODE? 


BEQ 


5$ ; 


BR IF NOT 


CMPB 


R0.*20 


CONTROL-P? (EXIT TALK MODE) 


BNE 


2$ 


BR IF NO 


JSR 


PC.a*150070 ; 


IN REMOTE MODE?(TSTREM) 


BNE 


25$ ; 


BR IF YES 


JSR 


PC.aEXTKPT ; 


CLEAR TALK MODE 


BIS 


JDISCAR.TCTFLG ; 


DISABLE CARRIER ERROR REPORTING 


BR 


25$ 


EXIT 


JSR 


PC.aWRTRMP 


ECHO TO REMOTE LINE 


BIT 


#REM£CH.TCTFLG 


TALK ECHO ENABLED? 


BEO. 


25$ 


BR TO EXIT IF NO 


JSR 


PC.3WRTLCP 


•ECHO BACK TO LOCAL TERMINAL 


BR 


25$ 




JSR 


PC.a#150070 


;IN REMOTE l'.ODE?(TSTREM> 


BEQ 


RMTENT 


;BR IF NO 


BIT 


fLOCCNT.TCTFLG 


;LOCAL CONTROL? 


BNE 


RMTENT 


;BR IF YES 


JSR 


PC.3CHKLCI 


rTEST FOR PROTOCOL INTERRUPT CHARACTER 


BR 


25$ 


.-EXIT 


TSTB 


PGMIOM 


,-TEST FOR PROGRAM I/O MODE 


BEQ 


6$ 


;BR IF NO 


JMP 


3*144374 


;IF YES. GO TO 'PROGIO' IN ROM 


CMPB 


R0,#17 


;TEST FOR CONTROL-0 

















J 11 


ZZ-ESKA* 


1-10.1 


CONSOLE 


SWITCH MODE 


CHANGE 




20- 


VIO-Ol-l 




MACRO V05.03 Friday 


25 


-Apr-86 


10:56 P 


age 87-1 


CONSOLE 


SWITCH 


MODE CHANGE 










8684 


032514 


001002 








BNE 


7$ ; 


8685 


032516 


000137 


144356 






JMP 


31144356 ; 


8686 


032522 


105767 


003004 




7$: 


TSTB 


TCTFLG ; 


8687 


032526 


100012 








BPL 


25$ 


8688 


032530 


105767 


037747' 






TSTB 


APTLOD ; 


8689 


032534 


001405 








BEQ 


8$ ; 


8690 


032536 


122700 


000020 






CMPB 


#20. RO ; 


8691 


032542 


001002 








BNE 


8$ : 


8692 


032544 


112700 


000003 






MOVB 


f3.R0 ; 


8693 


032550 


000137 


146062 




8$: 


JMP 


31146062 : 


8694 
















8695 


032554 


012600 






25$: 


MOV 


(SP)*,R0 


8696 


032556 


000002 








RTI 


i 


8697 
















8698 












.DSABL 


LSB 


8699 

















20-MAY-1986 



Fiche 1 Frame Jll 



Sequence 139 



08) 



BR IF NOT 

GO BACK TO ROM TO ECHO 

USER REQUEST ACTIVE? 

EXIT IF NOT 
DID APT LOAD US?(EDIT 4- 
BRANCH IF NOCEDIT 4-08) 
CONTROL P?(EDIT 4-08) 
BRANCH IF NOCEDIT 4-08) 
FORCE TO CONTROL C(EDIT 4-08) 

GO TO ROM TO SERVICE CKBDSER*) 



;RETURN FROM INTERRUPT 
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20-MAY-1986 



Fiche 1 Frame Kll 



Sequence 140 



8701 








8702 








8703 








8704 








8705 








8706 








8707 








8708 




000017 




8709 




000003 




8710 








8711 








8712 








8713 








8714 








8715 








8716 








8717 








8718 








8719 


032560 


106427 


000340 


8720 


032564 


010046 




8721 


032566 


010146 




8722 


032570 


105767 


003021 


8723 


032574 


001473 




8724 








8725 


032576 


005000 




8726 


032600 


005001 




8727 


032602 


153701 


173024 


8728 


032606 


153700 


173025 


8729 


032612 


001433 




8730 


032614 


020027 


000003 


8731 


032620 


001420 




8732 


032622 


020027 


000017 


8733 


032626 


001402 




8734 


032630 


000137 


145070 


8735 








8736 


032634 


022701 


000003 


8737 


032640 


001002 




3738 


032642 


105067 


037745' 


8739 








8740 


032646 


022701 


000004 


8741 


032652 


001366 




8742 


032654 


105067 


037746' 


8743 


032660 


000763 




8744 








8745 








8746 


032662 


066701 


003504 


8747 


032666 


005000 




8748 


032670 


151100 




8749 


032672 


052700 


001400 


8750 


032676 


000137 


145134 


8751 








8752 


032702 


110167 


002661 


8753 


032706 


105067 


003361 


8754 


032712 


004737 


150070 


8755 


032716 


001406 





CIB 'TX READY' INTERRUPT SERVICE -- FIX FROM 'CTXBGN' IN ROM 

NEW SOFTWARE COMMUNICATION CODES: 

VMS SENDS 'F03' TO CLEAR THE WARM-START FLAG 

•F04' TO CLEAR THE COLD-START FLAG 



SOFC0M=17 
CONEXM=3 

.ENABL LSB 



.•SOFTWARE COMMUNICATION CODE 
; 'EXAMINE CONSOLE MEMORY' CODE 



EU00169 **9** 

THIS TXRENT ROUTINE ALLOWS US TO JMP TO ROM AND ENTER THE SENDST AND PUTWRD 
ROUTINES WITH THE INTERRUPTS ENABLED. THE SAME SCENERIO CAN HAPPEN HERE AS 
IT DID IN THE EU00257 PROBLEM REPORT WHERE THE TX RDY BIT MAY BE ACCESSED 
MULTIPLE TIMES IN THE SAME INTERRUPT CYCLE AND QUEUE MAY BECOME UNMANAGABLE 



TXRENT: MTPS 
MOV 
MOV 
TSTB 
BEQ 

ENTFOR: CLR 
CLR 
BISB 
BISB 
BEQ 
CMP 
BEQ 
CMP 
BEQ 

25$: JMP 



45$ 



15$; 



35$ 



10$; 



CMP 

BNE 

CLRB 

;BR 

CMP 

BNE 

CLRB 

BR 



ADD 

CLR 

BISB 

BIS 

JMP 

MOVB 
CLRB 
JSR 
BEQ 



#340 

RO.-(SP) 

Rl.-(SP) 

PGMIOH 

30$ 

RO 

Rl 

afFMIDLO.Rl 

a*FMIDLO*l.R0 

10$ 

RO.fCONEXM 

35$ 

R0,#SOFC0M 

45$ 

a#145070 

*3.R1 

15$ 

WRMSTR 

25$ 

/4.R1 

25$ 

CLDSTR 

25$ 



BASEAD.R1 

RO 

(Rl) ,R0 

ICONEXMMOO.RO 

3*145134 

Rl .STARCR 

SYNC 

PC .a#150070 

12$ 



DISABLE INTERRUPTS 
SAVE SCRATCH REGISTERS 

IN PROGRAM I/O MODE? 
EXIT IF NOT 



Rl GETS DATA FROM 'FMID' REGISTER 

RO GETS SELECT CODE 

BR IF SELECT CODE (P I/O OUTPUT) 

'EXAMINE MEMORY' CODE? 

GO DO IT. IF SO 

SOFTWARE COMMUNICATION CODE? 

GO DO IT 

GO TO SERVICE AS USUAL IN ROM. 

.•CLEAR WARM-START FLAG 



(SAVE A FEW BYTES) 
CLEAR COLD-START FLAG 
RETURN TO ROM AS USUAL 

;EXIT BACK TO ROM ROUTINE 

; 'EXAMINE CONSOLE MEMORY' SERVICE 
.•CALCULATE ADDRESS OF BYTE TO EXAMINE 

LOWER BYTE OF RO GETS CONTENTS OF ADDRESS 
UPPER BYTE GETS EXAMINE CODE BACK 
GO TO SERVICE AS USUAL IN ROM. 

Rl GETS CHAR 

CLEAR TERMINAL SYNC FLAG 

IN REMOTE MODE?(TSTREM) 

SKIP SETTING SYNC FLAG IF NOT 



ZZ-ESKAA-10.1 
V10-01-L 
CONSOLE SWITCH 



8756 
8757 
8758 
8759 
8760 
8761 
8762 
8763 
8764 
8765 
8766 
8767 
8768 
8769 
8770 
8771 
8772 
8773 
8774 
8775 
8776 
8777 
8778 
8779 
8780 
8781 
8782 
8783 
8784 
8785 
8786 
8787 
8788 
8789 
8790 
8791 
8792 
8793 
8794 
8795 
8796 
8797 
8798 
8799 
8800 
8801 
8803 
8807 
8808 
8809 
8811 
8815 
8816 
6817 
8818 
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20-HAY-1986 



Fiche 1 Frame Lll 



Sequence 141 



032720 
032726 
032730 
032734 
032754 
032756 
032760 
032764 
032766 
032770 

032772 
032776 
033000 
033004 
033006 
033012 
033014 
033022 
033024 
033032 



033034 
033034 
033040 
033042 
033046 
033054 
033056 
033062 
033064 
033072 
033074 
033100 



033102 
033106 
033110 
033112 
033116 
0j3120 
033122 
033124 
033130 
033132 



032767 
001402 
105267 

103003 
005726 
004767 
012601 
012600 
000002 

105367 
002015 
105767 
001012 
105767 
001407 
032737 
001003 
052737 
000207 



105267 
103011 
105167 
026627 
001011 
105067 
000406 
122767 
001002 
105267 
000207 



022700 
001001 
104006 
022700 
001002 
005005 
000405 
022700 
001002 
004767 



000000 002604 
003337 

000022 

003275 

003721 

002603 

000200 173016 

000200 173016 



000042 
000044 

000046 
176670 



12$ 



30$ 



002556 

002550 

000002 000006 

002333 

000130 C03327 

003661 



CHRPNT; 



TXSETR: 



40$: 



GOTLIN 



BIT 

BEQ 

INCB 

T$HRIT 

BCC 

TST 

JSR 

MOV 

MOV 

RTI 

DECB 

BGE 

TSTB 

BNE 

TSTB 

BEQ 

BIT 

BNE 

BIS 

RTS 



CLRRPT 
U: 

2$: 



*L0CCOP.TCTFLG 

12$ 

SYNC 

*STARCR.#1.#CHRPNT 

30$ 

(SP> + 

PC. TXSETR 

(SP)+.R1 

(SP)-.RO 



.•LOCAL COPY SET? 

;SKIP SETTING SYNC F.AG.IF 



NOT 



.•WRITE ONE BYTE AND RETURN BELOW 
BR IF NO ERROR 
POP ERROR OFF STACK 
SET TRANSMITTER READY 
RESTORE SCRATCH REGISTERS 



SYNC 

40$ 

MESFLG 

40$ 

PGMIOM 

40$ 

*TXRDY 

40$ 

fTXRDY 

PC 



,a#TXREAD 
.3ITXREAD 



.•RETURN TO HERE AFTER CHAR HAS PRINTED 
.-SKIP SETTING TX-READY UNTIL ALL DONE 



PROGRAM I/O MODE? 

SKIP. IF NOT 

TXRDY BIT SET? 

YES. SO NO NEED TO SET IT AGAIN 



IIOII 
t to • t 



.DSABL LSB 



.ENABL LSB 

.•ENTER HERE WHEN A COMMAND LINE 



IS INPUTTED 



SET LINE SYNC FLAG FOR "GETLIN". 

BR IF NO ERROR ON READ. 

NEGATE FLAG TO INDICATE ERROR. 

TEST FOR CNTL-C. IF SO DISABLE COMMAND REPEAT 

BR IF NOT CONTROL C. 

CLEAR REPEAT FLAG. 

EXIT. 

"X" COMMAND ? 

BR IF NO. 

SET THE XLOAD FLAG. 



.SBTTL EMT DESPATCHER FOR EXTRA EMT CODES. 

NB. NO ROOM FOR FULL DESPATCHER SO ONLY HANDLE CODES 21/22 
CONTENTS OF R5 MAY BE DESTROYED BY THIS ROUTINE. 



INCB 


LINGOT 


BCC 


1$ 


COMB 


LINGOT 


CMP 


2(SP).#$TCTC 


BNE 


2$ 


CLRB 


RPTFL6 


BR 


2$ 


CMPB 


#'X,TTYBUF*1 


BNE 


2$ 


INCB 


XLOFLG 


RTS 


PC 


.DSABL 


LSB 





.ENABL 


LSB 


MOREMT: 


CUP 


*42.R0 




BNE 


10$ 




EMT 


LOADCN 


10$: 


CMP 


144, RO 




BNE 


20$ 




CLR 


R5 




BR 


MOREX 


20$: 


CMP 


#46, RO 




BNE 


30$ 




JSR 


PC.CHKSWH 


i 


BR 


MOREX 



HAS IT EMT 
BR IF NOT. 



CODE 21 ? 



22 



WAS IT EMT CODE 

BRANCH IF NO 

ASSUME NOT CCITT MODEM HANDLER. 

EXIT WITH R5=0 IF NOT CCITT HANDLER. 

WAS IT EMT CODE 23? 

BRANCH IF NOT 

CHECK KEY SWITCH POSITION 

EXIT unnecessary branch **9 ! 



ZZ-ESKAA-10.1 

V10-01-L 

EMT DESPATCHER 

8819 

8820 

8821 033136 

8822 

8823 

8824 

8825 

8826 033136 

8827 

8828 033136 

882? 

8830 

8831 



EMT DESPATCHER FOR EXTRA EMT CODES. 
MACRO V05.03 Friday 25-Apr-86 10:56 
FOR EXTRA EMT CODES. 
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Fiche 1 Frame Mil 



Sequence 142 



.•note: we donot know who or why this next: peice of code was removed 

HAS IT EMT CODE 24? 
EXIT IF NOT 
LOADED BY APT? 
BRANCH IF NO 
SET RETURN C BIT 



000167 003250 



30$:; 


CMP 


f50.R0 




BNE 


MOREX 


» 


TSTB 


APTLOD 




BEQ 


40$ 


* 


BIS 


*1.4(SP) 


40$: 






• 


BR 


MUREX 


M0REX: 


JMP 


BAKOUT 



.•EXIT unnecessary branch 



DSABL LSB 



ZZ-ESKAA-10.1 CONSOLE TEMPORAR 
V10-01-L MACRO V05.03 Fr 

CONSOLE TEMPORARY STORAGE 

8833 

8834 

8835 

8836 

8837 

0839 

8840 

8841 

8842 

8843 

8844 

8845 

8846 033142 

8847 

8848 

8849 035400 000020 

8850 100000 

8851 000400 

8852 000200 

8853 000040 

8854 000020 
8855 

8856 035402 OC0O00 

8857 100000 

8858 035404 000000 

8859 035406 000000 000000 

8860 035412 000 

8861 035413 000 

8862 035414 000 

8863 035415 000 

8864 035416 006416' 

8865 035420 000 

8866 035421 000 

8867 035422 000 

8868 035423 000 

8869 035424 002 

8870 035425 000 
8871 



Y STORAGE 
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20-MAY-1986 



Fiche 1 Frame Mil 



Sequence 143 



.SBTTL CONSOLE TEMPORARY STORAGE 
m ( m.m m ! i ! i ! i i i i i i i i m i i ii i i i i i i i i i i i i i i i i ii i i i i i i i i i i i i i i i i 1 1 i i i i i i i i i i ii i i i i 

!!!!!THIS JS START'OF R/w'sTORAGE THAT MUST NEVER *BE ' OVERLAID? !! I !! I " 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!! 1 I!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 

Illttttltit<tltttlttlttttlltltttttltttlitllltltlt(lltltllllttltltll<t>ltllllttlltltt 

THE ABSOLUTE ADDRESSES OF VARIABLES FROM HERE TO END OF CONSOLECBEG INNING 

OF PROTOCOL BUFFERS). MUST NOT CHANGE 

BECAUSE THE ROM-RESIDENT CONSOLE CODE HILL REFERENCE THIS AREA(SE£ GLOBAL DECLAKATIONc> 

ANY NEW VARIABLES SHOULD BE ADDED AT THE END 

tttttttlltllttlltttltiMltHtlltttltttlttltllttttMltlttlttllttilttlltltttllt' 

FILLTO 35400 .-NOTE: THIS IS A FIXED ADDRESS!!!!!!!!!!!!!!!!!!!!!!!!! 



;DO NOT REORDER 
TCONTL: .WORD INITLD 
WCSDES=100000 
MINSAD=400 
NEGATE=200 
DX1FLG=40 
INITLD=20 

MICFLG: .WORD 

COMQAL=100000 

NEXKT:.HCRD 

COUNT: .WORD 0.0 

DEEXBY: .BYTE 

DEFSTP: .BYTE 

ABORT: .BYTE 

RPTFLG: .BYTE 

WHATTODO: .WORD DOSHOU 

CURRAD: .BYTE HEXRAD 

CURLNH: .BYTE 

CURADS: .BYTE 

DEFRAD: .BYTE HEXRAD 

DEFLNH: .BYTE LNGLNH 

DEFADS. .BYTE PHYSPC 



TEMPORARY CONTROL DATA 

WCS FLAGCMUST BE SIGN BIT) 

ADDRESSES UPDATED IN REVERSE DIRECTION 

BIT 7 =NEGATE CONVERSION STRING 

USE FLOPPY DRIVE 1 

SET WHEN CONSOLE BOOTS OR STAR HALTSCNOT VIA HALT COMMAND) 



.-COUNT FOR CURRENTLY APPLIED /NEXT QUAL 
;USED FOR STEP COUNTS 



.-WHERE TO GO AFTER PARSING 



.TO HERE 



B 12 



035426 
035430 
035432 
035434 
035436 
035456 
035532 



ZZ-ESKAA-10 
V10-01-L 
IMPURE AREA 



8873 

8874 

8875 

8876 

8877 

8878 

8879 

8880 

8881 

8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 

8905 

8906 

8907 

8908 

8912 

8913 

8914 

8915 

8916 

C917 

8918 

8919 

8920 

8921 

8922 

8923 

8924 

8925 

8926 

8927 

8928 

8929 

8930 

8931 

8932 

8933 

8934 

8935 

8936 

8937 

8938 

8939 

8940 



FCR 



IMPURE AREA FOR DRIVERS AND FILESERVICES 
MACRO V05.03 Friday 25-Apr-86 10:56 Page 
DRIVERS AND FILESERVICES 



035534 
C35536 
035540 
035542 



035544 
035546 
035547 
035550 

035552 
035554 
035556 

035560 
0:5562 
035564 

035566 
035567 



90 



20-HAY-1986 



Fiche 1 Frame B12 



Sequence 144 



G00000 
C00000 
000000 
000000 



000000 

000020 
000040 
000100 
000200 
000400 
001000 
002000 
000000 
000000 
000000 
000000 
100000 
100600 
003000 
100600 



OOGOOO 
000000 
000000 
000000 



oooooo 

000 
000 

oooooo 

oooooo 
oooooo 
oooooo 

000G00 

oooooo 
oooooo 

000 
000 



.SBTTl IMPURE AREA FOR DRIVERS AND FILESERVICES 
.•READ/URITE TERMPORARIES AND CONTROL FLAGS 

.-CONVERSION TEMPORARIES 



SHIFTS: 

CNVCNT: 

RADIX: 

LENGTH 

CONTMP 

TEMS1R 

TCTFLG 



.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 
.BLKW 
.WORD 
.-BIT 








8. 
22. 

DEFINITIONS 



035570 000000 



KDNVEC; 
KUSCNT: 
KBFADD 
KBYCNT 



SPCCNT 
SPCCHR 
TERFIL 
POSCNT 

FDRV1 : 

NXTSEG: 

STRTBL: 

SECNUM: 

MESADD: 

NOBYTS; 

ECHOSV: 
STARCR 

FILERR 



.-ALLOW UP TO 16 BYTES TO 
.•LEAVE ROOM FOR UP TO 44 
TERMINAL CONTROL FLAG 



BE CONVERTED 
CONVERTED CHARACTERS 



REMOTE TERMINAL SPECIAL CHARACTER FLAG 

SET WHEN SPECIAL CHAR WRITE IN PROGRESS(LOCAL ) 



KBD INPUT REQUEST IN PROGRESSCSIGN BIT) 

RUBOUT SERVICE 

'TALK MODE ECHO' ENABLED 

CARRIER ERROR DISABLED 



RSPCFL=20 

SPCFLG=40 

ERRCOD^IOQ 

USRREQ=200 ;S"£T WHEN 

ROFLAG=400 .-USED FOR 

REHECH=1000 .-SET WHEN 

D I SCAR =20 00 ;SET WHEN 

TLKMOD=0 

LOCCOP=0 

LOCCNT=0 

PCARDET=0 

PRNINH=100000 ;INHIBIT OUTPUTCCONTROL-0 TOGGLESJMUST BE SIGN BIT 

ROUSPR=ROFLAG!USRREQ!PRNINH 

REH0PT=REMECH!DISCAR!TLKM0D!L0CC3P!L0CCNT 

REMDIS=USRREQ!PRNINH!ROFLAG!LCCCNT 



;D0 NOT 
.WORD 
.WORD 
.WORD 
.WORD 



REORDER 











FROM HERE 

HOLDS DONE VECTOR FOR KBD SERVICE 
USER'S KBD INPUT BYTE COUNT 
USR'S KBD INPUT BUFFER POINTER 
POINTER TO KBD INPUT COUNTER 
TO HERE 



TERMINAL DRNER TEMPORARIES 

.WORD 

.BYTE 

.BYTE .-TERMINAL FILL COUNT 

.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



USED TC ADJUST SECTOR * DURING DIRECTORY SEARCH 
HOLDS PTR TO NEXT DIR SEGMENT 

ACCUMULATES STARTING BLOCK t DURING DIR SEARCHES 
HOLDS CURRENT LOG SEC $ DURING DIR SEARCH 



;D0 NOT REARRANGE ORDER OF ECHOSV AND STARCR 
.BYTE .-STORAGE FOR ECHOED CHARACTER 
.BYTE 
;END OF ORDER 
.WORD ,-E~ROR CODE FOR DIRECTORY CEARCH ERRORS 



ZZ-ESKAA-10 
V10-01-L 
IMPURE AREA 



FOR 



IMPURE AREA FOR DRIVERS AND FILESERVICES 
MACRO V05.03 Friday 25-Apr-86 10:56 Page 
DRIVERS AND FILESERVICES 



C 12 



90-1 



20-MAY-1986 



Fiche 1 Frame C12 



Sequence 115 



8941 



035572 
035600 
035606 



000000 
000000 
000000 



8942 


035610 


000 


8943 


035611 


000 


8944 


035612 


000 


8945 


035613 


000 


8946 


035614 


000 


8947 


035615 


000 


8948 


0356.6 


000 


8949 


035617 


000 


8950 






8951 


035620 


000000 


8952 


035622 


000000 


8953 






8954 






8955 




100000 


8956 




040000 


8957 




020000 


8958 






8959 




004000 


8960 




002000 


8961 




001000 


8962 




000400 


8963 




000200 


8964 




000100 


8965 




00004P 


8966 




000020 


8967 




000010 


8968 




000004 


8969 




000002 


8970 




000001 



000000 000000 DIRENT: 
000000 OOOCOO 

RXERRO 
SAVER: 
KBDDON 
FRQDON 
PRTDON 
PGHIOM 
LINGOT 
TIMOUT 

WAITPT: 
FLAG: 



.WORD 0.0.0,0.0,0.0 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
.WORD 
.WORD 



10000 



SNGINS= 
IGNORE: 
SFUDON= 

WCSPRES 

USEDEF= 

SPCSTP= 

SPCSYC= 

INDMOD= 

HFDONE= 

SAWERR 

NOSHOW= 

QADTYP= 

IDSAVD= 

SAHHLT: 

SECHLF: 

















100000 

40000 

20000 

4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 



FLOPPY DRIVER ERROR FLAG 

SAVES ERROR CODE FOR 'WAITER* ROUTINE 

KEYBOARD DONE SYNC FLAG 

FLOPPY DONE SYNC FLAG 

PRINTER DONE SYNC FLAG 

PROGRAM I/O MODE FLAG 



COMMON RETURN POINTER FOR SERVICE REQUEST EXITS 

INTER-COMMAND FLAG BITS 

NOTE: 'SNGINS' MUST BE SIGN BIT 

SINGLE-INSTRUCTION STEP MODE 
CLOCK STOP REPORTED 
SOFTWARE DONE 

WCS PRESENT FLAG 

USE DEFAULT ECO FILE NAME FOR WCS LOAD 

SPACE-BAR STEP MODE 

SPACE-BAR SYNC 

INDIRECT-COMMAND (FILE) MODE 

WAIT-FOR-DONE 

CODE *2' MICRO-ERROR 

INHIBIT GETTING/SHOWING/TESTING VERSION IN LOAD WCS RTN 

QUADWORD-LENGTH 

ID-BUS STATE WAS SAVED 

CPU HALT REPORTED 

SECOND-HALF OF A QUADWORD OPERATION 



ZZ-ESKAA-10.1 
V10-C1-L 
DEVICE REQUEST 

8972 
8973 
8974 
8975 
8976 
8977 
8989 

8990 035624 

8991 035626 
8992 

8993 035626 
8994 
8995 
8996 
8997 
8998 
8999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 

9008 036126 

9009 036130 

9010 036132 
9011 

9012 036134 

9013 036136 

9014 036140 

9015 036142 

9016 036144 

9017 036146 

9018 036150 
9019 
9020 

9021 036152 

9022 036154 

9023 036156 

9024 036160 

9025 036162 

9026 036164 

9027 036170 

9028 036171 

9029 036172 

9030 036173 

9031 036174 

9032 036175 
9033 
9034 
9035 

9049 036202 

9050 036204 



DEVICE REQUEST QUEUES 
MACRO VjS.03 Friday 25-Apr 
QUEUES 



D 12 



86 10:56 Page 91 



20-MAY-1986 



Fiche 1 Frame D12 



Sequence 146 



035626* 
0O0OG6 



000006 
000012 
000010 



000002 
000004 
000006 
000010 
000012 

000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



105714 

100376 

000000 

005316 

003373 

000177 

000 

000 

001 

000 

000 

000 



036176 000000 000007 



036216' 
036216' 



140052* 



.SBTTL DEVICE REQUEST QUEUES 

.-NUMNOD IS NUMBER OF NODES TO BUILD IN LIST 
.•SIZNOD IS SIZE OF EACH NODE IN ! [WORDS'. ! 
.•FIRST WORD OF EACH NODE BUILT IS POINTER 
;TO NEXT NODE IN LIST. 



AVAILP: 
AVAIL: 



.WORD AVAIL 

; NODES 

NODSIZ=6 

BLDLST 16..NODSIZ 



AVAILABLE NODE LIST HEADER 

;6 WORDS PER NODE 

rl6 NODES OF 'NODSIZ* WORDS EACH 



.-NODE OFFSET DEFINITIONS FOR TERMINAL WRITE QUEUE 
;QNXNOD=0 
UBFPNT=6 
WDNVEC=10. 
UBTCNT=8. 



.-FLOPPY 
RXSTSC=2 
RXSPFC=4 
RXBFAD=6 
RXBTCT=8. 
RXDNVC=10. 



QUEUE NODE OFFSET DEFINITIONS 
STARTING LOGICAL SECTOR 
SPECIAL FUNCTION WORD 
BUFFER ADDRESS POINTER 
BYTE COUNT 
DONE VECTOR 



RXLQE: 
RXCQE: 
WRTQUE 

RXTRY: 
INTINT 
RXLSN: 
PHYTRK 
RXFUN2 
BYTCNT 
BUFRAD 



TRBYT: 
EFINST 



BOOTFL 
TIMFLG 
NOREMT 
NODRV1 
ALLREM 
PASS1: 

FLPTIM 

CHKFLP 
CHKXMT 



.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.-FLOPPY 

TSTB 

BPL 

.WORD 

DEC 

BGT 

JMP 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.EVEN 

.WORD 

.WORD 
.WO«?D 











DRIVER 

aR4 

TRBYT 



3SP 

TRBYT 

aZFlLLP 





1 









LAST NODE IN RX QUEUE 
CURRENT NODE IN RX QUEUE 
TERMINAL WRITE QUEUE HEADER 



FLOPPY DRIVER RETRY COUNT 
FLOPPY DRIVER INITIAL INTERRUPT FLAG 
FLOPPY DRIVER LOGICAL SECTOR STORAGE 
FLOPPY DRIVER TRACK STORAGE 
FLOPPY DRIVER FUNCTION STORAGE 
FLOPPY DRIVER BYTE COUNT STORAGE 
FLOPPY DRIVER BUFFER ADDRESS STORAGE 



0.7 

NOPROT 
NOPROT 



CODE PLACED HERE TO SPEED EMPTY BUFFER FUNCTIONS 
CHECK FOR TR 
BR IF NO TR 

MOVE INSTRUCTION PLACED HERE 
DECREASE SHIFT COUNT 
BR IF MORE BYTES TO XFER 
RETURN TO DRIVER 

FLAG USED FOR BOOTING STAR 

FLAG USED BY WAIT RTN *WAI TTH ' (ROM) 

ZERO IF NO REM TERM. MUST BE AT 36172 

NON-ZERO WHEN NC FLOPPY DRIVE 1 

REMOTE FLOPPY FLAG(SET WHEN ALL FLOPPY REQ TO APT) 

USED FOR REMOTE FLOPPY OPtN CHECK 

.-FLOPPY POWER-OFF TIMER 



ZZ-ESKAA 


-10.1 


DEVICE 


V10-01-L 




MACRO V 


DEVICE REQUEST 


QUEUES 


9051 


036206 


036216' 


9052 


036210 


036216* 


9053 


036212 


036216' 


9054 


036214 


036216' 


9058 


036216 


000207 


9059 






9060 






9061 


036220 


036246" 


9062 


036222 


036246* 


9063 


036224 


000 


9064 


036225 


000 


9065 


036226 


000000 


9066 


036230 


000000 


9067 


036232 


000000 


9068 


036234 


000000 


9069 


036236 


000000 


9070 


036240 


000000 


9071 


036242 


000000 


9072 


036244 


000000 


9073 


036246 


000000 


9074 


036250 


000000 




036256 


000000 


9075 


036260 


000000 


9076 






9077 






9078 


036262 


000000 


9079 


036264 


000000 


9080 


036266 


000000 


9081 


036270 


000 


9082 


036271 


000 


9083 


036272 


000 


9084 


036273 


000 


9085 


036274 


000 


9086 


036275 


000 


9087 






9088 


036276 


000113 



000000 000000 



REQUEST QUEUES 
V05.03 Friday 25-Apr-86 



CHKRCV 
OPNCHK 
CHKLCI 
CKXMT1 
NOPROT 



FILLP: 

EMPTYP: 

QUECNT: 

FLDTFL: 

BUFPNT: 

KOUNTR: 

FLPFCT: 

DATVEC: 

FLPSTA: 

FSECTOR 

FTRACK 

FLDONE 

QUEB6N 



E 12 



10:56 Page 91-1 



20-MAY-1986 



Fiche 1 Frame £12 



Sequence 147 



.WORD 
.WORD 
.UORD 
.UORD 
RTS 



NOPROT 
NOPROT 
NOPROT 
NOPROT 
PC 



.•STARLET BUFFER TEMPS 

.UORD QUEBGN 

.UORD QUEBGN 

.BYTE 

.BYTE 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORD 0,0,0,0 



QUEEND: .UORD 





.-REMOTE 


TERMINAL SUPPORT 


RMTQUE 


.UORD 





RSPCCN 


.UORD 





RPOSCN 


.UORD 


; 


RSPCCH 


. .BYTE 





REMONL 


. .BYTE 





PROTOC 


. .BYTE 





SYNC: 


.BYTE 


; 


CSr.QTM 


: .BYTE 





CTSSNT 


: .BYTE 
.EVEN 





CUTOFF 


: .UORD 


LASTOR 



STARLET BUFFER FILL POINTER 

STARLET BUFFER EMPTY POINTER 

STARLET QUEUE CONTENTS COUNTER 

FLOPPY DATA FLAG AND COUNT 

FLOPPY BUFFER POINTER 

FLOPPY BUFFER COUNTER FOR INPUT 

FLOPPY FUNCTION VECTOR 

FLOPPY DATA VECTOR 

FLOPPY STATUS FROM LAST FUNCTION 

FLOPPY SECTOR 

FLOPPY TRACK 

FLOPPY DONE VECTOR 

BEGINNING OF STARLET 'RXDB' QUEUE 



rEND OF STARLET RXDB QUEUE 

TEMPS 

REMOTE TERMINAL WRITE QUEUE HEADER 

REM TER SPECIAL CHARACTER WRITE COUNTER 

REM TER URITE HEAD POSITION TRACKER 

REM TER SPECIAL CHAR STORAGE 

NON-ZERO WHEN WRITE TO REMOTE TERMINAL ONLY 

NON-ZERO WHEN PROTOCOL ENABLED. 

PROGRAM I/O - LOC/REM SYNC FLAG 

USED FOR CONTROL-S TRANSMISSION 

NON-ZERO WHEN CONTROL-S HAS BEEN SENT 



ZZ-ESKAA-10.1 RING BUFFER DESCRIPTOR BLOCKS 

V10-01-L MACRO VQ5.03 Friday 25-Apr-86 10:56 Page 92 

RING BUFFER DESCRIPTOR BLOCKS 



F 12 



2Q-MAY-1986 



Fiche 1 Frame F12 



Sequence 148 



9090 

9091 

9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 

9111 

9112 

9113 

9114 

9115 

9116 

9117 

9118 

9119 

9120 

9121 

9132 

9133 

9134 

9135 

9139 

9140 

9141 

9142 

9143 

9144 

9145 

9145 

9147 

9148 

9149 

9150 

9151 

9157 

9158 

9159 

9160 

9161 

9162 



036300 
036302 
036304 
036306 
036310 

036312 
036312 
036314 
036316 
036320 
036322 

036324 
036324 
036326 
036330 
036332 
036334 

036336 
036336 
036340 
036342 
036344 
036346 



036352 
036354 
036356 
036360 
036362 

036364 
036366 
036370 



036374 
036374 
036376 
036404 
036412 
036414 



036416 
036420 



037200 
000176 
037200 
000000 
000000 



037000 
000176 
037000 
000000 
037000 



037612 
000052 
037612 
000000 
037612 



036624 
000100 
036624 
000000 
036624 



036350 023400 



036414' 
003102' 
003102' 
032002' 
036216' 

036216' 
033102' 
036216' 



036372 037600 



000005 
052777 
052777 
012600 
000002 



000000 



000100 
000100 



ALTBAS 
ALTSIZ 
ALTFIL 
ALTNUM 
ECHOIN 

APTBFO; 



.SBTTL RING BUFFER DESCRIPTOR BLOCKS 

.-APT PROTOCOL ALTERNATE OUTPUT BUFFER DESCRIPTOR BLOCK 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ALTBUF 
ALTBFZ 
ALTBUF 






APT PROTOCOL ALTERNATE OUTPUT BUFFER POINTERS 

SIZE 

FILL POINTER 

# OF BYTES IN ALTERNATE BUFFER 

UNUSED BUT MUST BE HERECNOH USED FOR ECHO SEQUENCING FLAG) 



;APT OUTPUT BUFFER 
.HORD APTBUF 
.WORD APBFSZ 
.WORD APTBUF 
.WORD 
.HORD APTBUF 



SIZE 

FILL PNTR 
t ITEMS IN 
EMPTY PNTR 



BUF 



LTEHBF 



RTEHBF 



.•LOCAL 

.WORD 

.WORD 

.WORD 

.WORD 

.WOPD 

.•REMOTE 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



TERMINAL 
LECHBUF 
LECSIZ 
LECHBUF 

LECHBUF 

TERMINAL 

RECHBUF 

RECSIZ 

RECHBUF 



RECHBUF 



ECHO BUFFER 



ECHO 



BUF1PT: .WORD BUfl 



SIZE 

FILL PNTR 
t ITEMS IN BUF 
EMPTY POINTER 



BUFFER 

BASE ADD 

SIZE 

FILL POINTER 

*ITEMS IN BUFFER 

EMPTY PNTR 

.•BUFFER POINTER FOR DRIVERSCBUF1 CAN FLOAT) 



037756* 
037762' 



RMTXPT 
EXTKPT 
HRTRMP 
TSTHLP 
WAiTLK 

NEWCOD 
NEWEMT 
DEADHK 



BASEAD; 
CONRES 



BAKOUT: 
RTIINS: 



TTYTMP: 

TTYBUF 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 



RTIINS 
RTSINS 
RTSINS 
TSTHLF 
NOPROT 

NOPROT 
MORtMT 
NOPROT 



.WORD FRSFIX 



.•CONSOLE RESET ROUTINE 

RESET 

#RCVINT.aRCSR 
fXMTINT.aXCSR 
(SPW.RO 



BIS 
BIS 

MOV 
RTI 



A 'HOOK' TO ALLOW SOME CHANGE IN QUEUE BLOCKING SCHEME 

EDIT- 16 (PARTIAL) : ADD NEW-SELECT-CODES ROUTINE 

A 'HOOK' TO ALLOW NEW 'SELECT' CODES 

A HOOK TO ALLOW NEW EMT CODES 

A HOOK TO ALLOW RECOVERING FROM INDEFINITE WAITS 

THIS HOOK WAS SET IN EDIT 5.11 TO THE SWITCH 

CHECK ROUTINE. (FIRST. RO MUST BE SAVED) 

POINTER TO BASE OF CONSOLE/STAR COMM AREA 



.•RESTORE LOCAL RCV INT ENB 
.•RESTORE LOCAL XMT INT ENB 



.EVEN 
.WORD 
.BLKB 82. 



ZZ-ESKAA-10 .1 RING BUFFER DESCRIPTOR BLOCKS 
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RING BUFFER DESCRIPTOR BLOCKS 



G 12 



20-MAY-1986 



Fiche 1 Frame G12 



Sequence 149 



9163 
9164 
9165 



9166 

9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 
9183 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9200 
9201 
9202 

9203 
9204 
9205 
9206 
9207 
9208 
9209 
9210 
9211 
9213 
9214 



C36542 
036550 
036556 
036562 
036570 
036572 
036576 
036600 
036602 
036604 
036610 
036614 
036620 



036624 



036724 
036725 
036726 
036727 
036730 
036731 



036732 
036734 
036736 
036737 
036740 
036741 
036742 
036743 
036744 
036745 
036746 
036751 

036754 
036756 
036760 

036761 
036762 
036763 
036764 

036765 



000122 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 



000100 



000 
000 
000 

coo 

000 
000 



022600 

000000 

000 

000 

noo 

000 
000 
000 
000 
000 
000 
000 

000213 

037377 

000 

OuO 
000 
000 
000 



000000 
000000 
000000 
000000 

oooooo 



000000 

oooooo 

O000GO 



OOOOOO 
OOOOOO 



036622 032476' 



000 

000 



000 
000 



TTYSIZ=.-TTYBUF 

DATAFR: .HORD 0.0.0.0.0.0.0.0 



.•EXTRA WORDS FOR V-BUS CHANNELS 



OOOOOO DATATO: .WORD 0.0.0.0 



LASADD 

SAVIDL 

SAVIDH 

IDTEMP 

EFFADR 

GOTID: 

TBFOSV: 

ALLOC: 

RMTVEC: 



WORD 
WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.EVEN 
.WORD 



0.0 







0.0 

0.0 

0,0 



RMTENT 



.•REMOTE FLOPPY DISABLE FLAG (ALL REQ TO LOCAL) 
.-NEW REMOTE TERMINAL SERVICE VECTOR 



RECSIZ=64. .-REMOTE TERMINAL ECHO BUFFER SIZE 
RECHBUF:.BLKB RECSIZ ;REMOTE TERMINAL ECHO BUFFER 



OPBLOK 
MESFLG 
LOCINT 
DMAERR 
RFLPWF 
RFLPEF 



DUMBAS 
DUMPNT 
MSGNUM 
ALSTMN 
LSMSAK 
MSGLST 
MSGINP 
SENHDR 
THDRCN 
THCRCC 
THDRST 



INBSIZ 

INBBAS 
INBLOK 

XLOFi.G 
XCMDSV 
NOCNSL 
SETSWH 



****** 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

. * t * * t * 

i 

.WORD 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.WORD 
.WORD 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 



******************** 



NOTE: DO NOT RE-LOCATE THIS CODE 
EACH OF THESE MUST BE ON WORD BOUNDARY/UPPER BYTE, 
AS PRESENTLY SET UP. 



OUTPUT BUFFER LOCK 
*8* OUTPUT BUFFERS FULL FLAG 
SET WHEN CONTROL-C TYPED ON LOCAL TERM 
SET WHEN DMA ERROR ON UUT LOAD 
REMOTE FLOPPY REQUEST WAIT FLAG 
.DEMOTE FLOPPY REQUEST ERROR FLAG 



*t*ft****frftv>t*tt**tt*t*tt»ftt*ft*t**ftftt****tftt****tt 



USRBUF 













POINTER TO BASE OF DUMP BUFFER 

POINTER TO CURRENT FILL BYTE OF DUMP BUFFER 

CONSOLE'S 'NEXT' MESSAGE t 

TEMP HOLDING LAST GOOD MSG REC'VD BY APT 

MSG f OF LAST CONSOLE MSG ACK'ED BY APT 

LAST GOOD MSG FROM APT 

NON-ZERO WHEN A MSG /MISSION IN PROGRESS 

NON-ZERO WHEN HEADER XMISSION IN PROGRESS 

$ OF HEADER BYTES YET TO SEND(NOT CRC) 

# OF CRC BYTES YET TO SENDU OR 2 OR 0) 



0.0.0.0.0.0 .-XMITTER HEADER STRING STORAGE 



AINPBZ 
APTBFI 




INPUT BUFFER SIZE 

INPUT BUFFCP BASE ADDRESS 

INPUT JU'^ER LOCK(0 MEANS BUFFER OPEN) 

DOING 'X' BINARY LOAD (INHIBIT DEPOSIT ERRORS) 
*X' COMMAND CHECKSUM GETS PLACED HERE(ED1T 4-07) 
INDICATES CONSOL.SYS OVERLAID PARTIALLY. 
FORCES A KEYSWITCH SET-UP WHEN NON-ZERO. 



FILLTO 36777 
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9215 




9216 036777 


015 


9217 


037000 


9218 


000176 


9219 


037200 


9220 


000176 


9221 




9222 




9223 




9224 




9225 




9226 




9227 




9228 




9229 




9230 




9231 


000213 


9232 


037377 


9233 




9234 


037612 


9235 




9236 


000052 


9237 


037664 


9238 




9239 




9241 




9242 
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TYPE13: .BYTE 

APTBUF=.-BASF 

APBF3Z=126. 

ALTBUF=.-BASE*APBFSZ*2 

ALTBFZ^APBFSZ 



'ASCII TEXT' HSG TYPE BYTE 

APTBUF STARTS HERE AND RUNS 192. BYTES 

APT OUTPUT BUFFER SIZE 

ALTERNATE OUTPUT BUFFER BASE ADDRESS 

ALTERNATE BUFFER MUST BE SAME SIZE AS APTBUF 



'NOTE'"""""""""""""""""""""""'""""" 

•THE APT INPUT BUFFER MUST START ON AN ODD-BYTE ADDRESS. 

;BECAUSE OF THE *JMP TO BUFFER* AND *JSR TO BUFFER* PROTOCOL 

rBLOCK TYPES. SINCE THE MESSAGE TYPE BYTE HILL OCCUPY THE 

rFIRST BYTE OF THE BUFFER. MAKING THE BUFFER BEGIN ON AN 

;0DD ADDRESS PUTS THE FIRST INSTRUCTION IN THE BUFFER ON 

;AN EVEN BYTE BOUNDARY 

titiititiiiiiiiiiiitiitiitiiitttittiititiiittntititiiiiit 

AINPBZ = i39. .-DEFINES INPUT BUFFER SIZE 

APTBFI = .-BASE*APBFSZ-ALTBFZ*3 .-APT PROTOCOL INPUT BUFFER 

LECHBUF=.-BASE*APBFSZ*ALTBFZ*AINPBZ-3 

LOCAL TERMINAL ECHO BUFFER BASE ADDRESS 
LOCAL TERMINAL BUFFER SIZE 
LECSIZ ;SEE END ADDRESS OF CONSOLfc. 



LECSIZ=42. 
LECEND = LF.CHBUF 
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ABORT 


035414R 


ACTION= 


000002 


ADDEQU 


021454R 


ADUPTB 


005266R 


AINPBZ= 


000213 


ALLOC 


03662CR 


ALLREM 


036174R 


ALRDHA 


020551R 


ALSTMN 


036737R 


ALTBAS 


036300R 


ALTBFZ= 


000176 


ALTBUF= 


037200 


ALTFIL 


036304R 


ALTNUM 


036306R 


ALTSIZ 


036302R 


APBFSZ= 


000176 


APCEQU 


021633R 


APTBFI= 


037377 


AP7BF0 


036312RG 


APTBUF= 


037000 


APTCf1D = 


000212 


APTLOD= 


037747 


APTRTN= 


000366 


APTSRT 


001004R 


APTSTR= 


000073 


AUTFLG= 


037751 


AUTORS= 


000004 


AUTRES 


020510R 


AVAIL 


035626R 


AVAILP 


035624RG 


BADLIN 


022355R 


BAKOUT 


036412R 


BASE = 


OOOOOOR 


BASEAD 


036372RG 


BITTAB 


014012R 


BOOSTR 


022472R 


BOOTBT= 


004000 


BOOTFL 


036170RG 


BOOTSZ= 


000001 


B00T2 


000200R 


B00T3 


000422R 


BOTING 


02047SR 


BUFFB = 


001000 


BUFFRP 


022542R 


BUFPNT 


036226RG 


BUFRAD 


036150RG 


BUFO 


023200R 


BUF1 


023400R 


BUF1PT 


036350RG 


BYTCNT 


036146RG 


BYTESL 


022013R 


BYTLNH: 


000000 


BYTSLD 


022546R 


BYTSLF 


022544R 


CACPAR^ 


000036 



CANTDO 


020662R 


CARDET= 


010000 


CESREG= 


000014 


CGREGE= 


000442 


CHKFLP 


036202RG 


CHKLCI 


036212RG 


CHKRCV 


036206R 


CHKSHH 


032026R 


CHKSHI= 


000023 


CHKXHT 


036204RG 


CHR?NT 


032772R 


CKXHT1 


036214RG 


CLDSTR= 


037746 


CLEOPA 


016600R 


CLEOPL 


016572R 


CLKEQU 


021354R 


CLKERR 


021605R 


CLKFAS 


021371R 


CLKNOR 


021364R 


CLKSER= 


140004 


CLKSLO 


021376R 


CLKSTD= 


000040 


CLOCKS 


021610R 


CLOPAC 


016S64R 


CLOPLS 


016554R 


CLRRPT 


033056R 


CLRSIB 


003156R 


CLRSND= 


020000 


CLSPAR 


020710R 


CNVCNT 


035430RG 


CNVERT= 


000007 


CNVTDN 


022505R 


COBOOT 


017722R 


COCLEA 


017726R 


COCNTP 


020367R 


COCONT 


017732R 


CODEPO 


017736R 


CODISA 


020377R 


COENAB 


020371R 


COEXAM 


017743R 


COEXDE 


006176R 


COHALT 


017747R 


COHELP 


017753R 


COINDI 


017756R 


COINIT 


017757R 


COLINK 


017763R 


COLOAD 


017767R 


COKIOD 


007254R 


COMPAD 


004260R 


COMPNX 


014660R 


COHQAL= 


100000 G 


COMUAT 


003546R 


CONBAS 


001174R 


CONBOT 


001160R 


CONCON= 


000447 
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CONEQU 


022347R 


DASH 


020712R 


CONERR= 


000002 


DATAFR 


036542R 


CONEXH= 


000003 


DATATO 


036562R 


CONF.XT 


017773R 


DATEQU 


021470R 


CONFND 


00O6O4R 


DAT1NT: 


000040 


CONIDN 


021563R 


DATIST 


006756R 


CONPMP 


022414R 


DATLTB 


005306R 


CONRES 


036374RG 


DATRDY- 


000002 


CONSER 


020765R 


DATV'C 


036234RG 


CONSPC^ 


000005 


DBY~ 


021513R 


CONSRT 


001150R 


DEADHK 


036370RG 


CONSTR 


000624R 


DEEXBY 


035412R 


CONTMP 


035436RG 


DEEXPM 


005022R 


CONTSQ 


003232R 


DEFADS 


035425R 


CONVER 


020464R 


DEFLNH 


035424R 


CONVRT= 


140022 


DEFNAM 


017166R 


CONXX 


000624R 


DEFRAD 


035423RG 


COOVER 


017777R 


DEFSTP 


035413R 


COPERF 


O2O0O4R 


DFND 


00C436R 


COQCLE 


020010R 


DFOPAC 


017006R 


COREBO 


020014R 


DFOPLS 


016752R 


COREPE 


020020R 


DIRENT 


035572RG 


C^ET 


020024R 


D1SCAR= 


002000 


COSHOW 


020027R 


DISERR 


022054R 


COSTAR 


020032R 


DLNG 


021525R 


COTEST 


020036R 


DMAERR 


036727R 


COUNJA 


020041R 


DNEIE = 


000040 


COUNT 


035406R 


DOAUTR 


003132R 


COHAIT 


020044R 


DOBOOT 


003104R 


COUCS 


020047R 


DOCLSO 


003210R 


COXLOA 


020406R 


DOCONT 


003220R 


CPDBLE 


021052R 


DODEEX 


004514R 


CPHYSE= 


000440 


DOENDX 


006410R 


CPREGE= 


000444 


DOHALT 


003562R 


CPTN 


021641R 


DOINDI 


003140R 


CPT3 = 


000020 


DOINIT 


003620R 


CPUIS 


021254R 


DOIR 


006250R 


CPURES= 


010000 


DOLINK 


013230R 


CRMES 


022430R 


DOLOAD 


012322R 


CRttESQ 


021647R 


DONEXT 


003730R 


Ci^XINT = 


140012 


DOOVER 


007240R 


CSCQJM 


036274R 


DOPERF 


003400R 


CSDONE= 


000040 


DOQCLE 


004136R 


CSEBUF= 


000002 


DOREBO 


007134R 


CSGO = 


000001 


DOSHOU 


006416R 


CSRD = 


000006 


DOSHVR 


006766R 


CTSSNT 


036275R 


DOSSTB 


004356R 


CTxm = 


032560R 


DOSSTI 


004330R 


CURADS 


035422R 


DOSSTN 


004414R 


CURLNH 


035421R 


DOSSTS 


004376R 


CURRAD 


035420R 


DOSTAR 


003420R 


CURRSE 


022536R 


DOSTCF 


004462R 


CUTOFF 


036276RG 


DOSTCN 


004474R 


CVNTYP 


010436R 


DOSTCS 


004502R 


CWAIT 


007720R 


DOSTDF 


007140R 
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DOSTER 


004422R 




DOSTPG 


04432R 




DOSTSO 


004454R 




DOTEST 


007210R 




DOUNjA 


003524R 




DOHAIT 


007326R 




DOHCS 


007226R 




DOXLOA 


014C74R 




DQAD 


021532R 




DSCLER 


013746R 




DSECHO 


013770R 




DSFLOP 


014022R 




DSLOCO 


013766R 




DSREMT 


014040R 




DSTINT= 


100000 




DSTRDY= 


002000 




DSV 


000056 




DUMBAS 


036732R 




DUMPNT 


036734R 




DWRD 


021520R 




DXPR£I= 


140026 




DX1FLG= 


000040 




ECHOIN 


03631OR 




ECHOSV 


035566RG 




ECONAM 


017202R 




EFFADR 


036604R 




EFINST 


036156RG 




EINTPE 


021130R 




ELOCAL 


032160R 




ELOCDS 


032152R 




ELOCXX 


032226R 




EMPTTP 


036222RG 




EMTSER= 


140016 




ENCLER 


013772R 




ENDBLK= 


0O4O0C 




ENECHO 


013744R 




ENFLOP 


014032R 




ENLOCN 


013740R 




ENLCCO 


C13742R 




ENLTI£ 


0O2616R 




EH c .f ■".'. 


014050R 




' ► FOR 


032576R 




£«TTLK 


032000R 




EOFMES 


022405R 




EOLACT 


016526R 




EOLLST 


016520R 




EREMDS 


032250R 




EREHOT 


032270R 




ERRCCD 


022507R 




ERRCHM 


02U71R 




ERRCOD= 


000100 G 




ERRPRG 


021203R 




EXDEPC 


006000R 




EXDEVC 


005232R 




EXECUT 


0O2764R 
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EXTENS 


022552R 


IDCYCL= 


100000 


EXTKPT 


036354RG 


IDDATH= 


173010 


EXTPIO 


010414R 


IDDATL= 


173006 


EXUPC 


O06O56R 


IDEXDE 


005652R 


FDRV1 


035552RG 


IDMANT= 


000200 


FILENM 


022546R 


IDNTTB 


005250R 


FILERR 


035570RG 


IDSAVD= 


000004 


FILLEQ 


021476R 


IDTABL 


010606R 


FILLP 


036220RG 


IDTEMP 


036602R 


FILPNT 


022554R 


IDWRIT= 


000100 


FILTAB 


013702R 


ID16 = 


000026 


FIRSTU= 


010000 


IGNORE= 


040000 


FLAG 


035622RG 


ILIEVC 


021075R 


FLDONE 


036244RG 


INBBAS 


036756R 


FLDTFL 


036225RG 


INBLOK 


036760R 


FLNMER 


021712R 


INBSIZ 


036754R 


FLPERR 


021753R 


INDBYT 


022556R 


FLPFCT 


036232RG 


INDECH 


013504R 


FLPSTA 


036236RG 


INDEXI 


022373R 


FLPT1H 


036176RG 


INDLFT 


022560R 


FLPYOF= 


010000 G 


INDLIN 


013260R 


FHIDHI= 


173026 G 


INDMOD= 


000200 


FMIDL0= 


173024 G 


INDSEC 


022562R 


FORCHT 


002522R 


INEXDE 


005434R 


FPLEQU 


022321R 


INITLD= 


000020 


FPLVER= 


037755 


INITQU 


0O3632R 


FPVERS= 


007600 


INITRT 


003652R 


FREQO = 


000010 


INSTIV 


021032R 


FREQ1 = 


000020 


INTIDN 


021551R 


FRQDON 


035613RG 


INTINT 


036136RG 


FRSFIX= 


037600 


INTR36= 


000066 


FSECTO 


036240RG 


INTSPC= 


000003 


FTRACK 


036242RG 


IRIDN 


021575R 


GEEXDE 


005420R 


ISANER 


021653R 


GENIDN 


021544R 


ISCLR 


021314R 


GENSPC= 


0U0002 


ISINCO 


021672R 


GETLIN 


001600R 


ISSET 


021310R 


GETRNP: 


140064 


KBDDON 


03561 2RG 


CETVER 


011424R 


KBDINT= 


C32356R 


GHMES 


022330R 


KBFADD 


035540RG 


GHOPT = 


000001 


KBYCNT 


035542RG 


GOTID 


036610R 


KDNVEC 


035534RG 


GOTINP 


002646R 


KLUDG2 


032300R 


GOTL1M 


033034R 


KLUDG3 


032356R 


HELNAM 


017174R 


KQUNTR 


036230RG 


HEXRAD= 


000000 


KUSCNT 


035536RG 


HLINST 


021145R 


LASADD 


036572R 


HLTED 


021272R 


LASADS 


022506R 


HLTINS= 


000006 


LASDAT 


022466R 


HLTMES 


020565R 


IASERR= 


000013 


HLTREO.= 


100000 


LASPOS= 


037750 G 


IDAUST: 


000040 


LASTOR= 


000113 


IDB1DN 


021556R 


LCANWC^ 


000014 


IDBSPC- 


000004 


LCRXVC= 


000060 


IDCNTL= 


173030 


LCTXVC- 


000064 
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LCURON= 


000016 


LDCONS= 


000021 


LECEND= 


037664 


LECHBU= 


037612 


LEC3IZ= 


000052 


LENGTH 


035434RG 


LINGOT 


035616RG 


LINKNG 


022512R 


LNGLNH= 


000002 


LKHCOD 


022520R 


LNHDAT 


022516R 


LNKENT 


003162R 


LNKPMP 


022422R 


LOADCM= 


000006 


LOADDE 


005412R 


LOCCNT= 


000000 G 


LOCCOP= 


000000 G 


LOCINT 


036726R 


LOCKD = 


000001 G 


LOCOUT 


032140R 


LODFLG 


022514R 


LODMlC= 


140042 


LOISDN 


021776R 


LSMSAK 


036740R 


LTEHBF 


036324RG 


HAINTR= 


002000 


MAJTRE 


015426R 


MASKS 


006166R 


MATCH 


015002R 


MCR 


173032 


MCS 


173034 G 


MDMTYP= 


000022 


MEMFAL= 


000001 


MEMMAN 


020737R 


MEMSIZ= 


040000 


MESADD 


035562RG 


MESFLG 


036725R 


MICAST 


005442R 


MICFLG 


035402RG 


MICOPT= 


037744 


MICHSL 


022031R 


MINSAD= 


000400 


MHTMOU 


021221R 


MN0SIZ= 


0&C006 


M0DCHG 


032142R 


MONF 


000466R 


MOPTFL= 


000205 


MOREMT 


033102R 


MOREX 


033136R 


MOVTOD 


002634R 


MSGINP 


036742R 


MSGLST 


036741R 


MSGNUM 


036736R 


MTBOOT 


015522R 


MTCARR 


016250R 



MTCAR1 

HTCLEA 

MTCIKP 

MTCLOC 

MTCLOP 

MTCNTL 

MTCOLO 

MTCOL1 

MTCOL2 

MTCOL3 

MTCOMO 

MTCONT 

MTCOPY 

MTCOP1 

MTDEFA 

MTDEPO 

MTDFOP 

HTDISA 

MTDONE 

MTDX1 

MTECHO 

MTECH1 

MTENAB 

MTENDX 

MTEOL 

MTEQU 

MTERRO 

MTERR1 

HTEXAM 

MTEXIR 

HTFILL 

MTFIXA 

MTFLP1 

MTFLP2 

MTFPR1 

MTFPR2 

MTHALT 

MTHELP 

MTINDI 

MTINIT 

MTLINK 

MTLOAD 

MTLOCA 

MTLOC1 

MTNcXT 

MTNUMO 

MTNUM1 

MTNUM2 

MTNUM3 

MTNUM4 

MTNUM5 

MTNUM6 

MTNUM7 

MTOVER 

MTPERF 



016314R 

016060R 

016066R 

016006R 

316014R 

016220R 

015742R 

016146R 

015712R 

016170R 

015772R 

015610R 

016226R 

016336R 

015750R 

015616R 

015764R 

016300R 

015472R 

016140R 

016242R 

016306R 

016176R 

016162R 

016132R 

015640R 

016256R 

016322R 

015552R 

015574R 

015734R 

015602R 

016234R 

016344R 

016272R 

016360R 

015544R 

016102R 

016074R 

015514R 

016116R 

016052R 

016212R 

016330R 

015500R 

015450R 

015506R 

015566R 

015624R 

015646R 

015720P 

016374R 

016402R 

016124R 

161 1 OR 



MTPROG 


015756R 


MTQCLE 


015654R 


MTREBO 


016036R 


MTRELO 


015704R 


MTREMG 


016264R 


MTREM1 


016352R 


MTREPE 


015434R 


MTSALO 


015560R 


MTSAL1 


015632R 


MTSAL2 


015456R 


MTSET 


015662R 


MTSHOH 


015530R 


MTSOMO 


016000R 


MTSTAR 


015442R 


MTSTEP 


015670R 


MTSTOP 


015676R 


MTTALK 


016204R 


MTTERM 


015726R 


HTTEST 


016022R 


HTUNJA 


016044R 


MTVERS 


015536R 


MTHAIT 


015464R 


MTHCS 


016030R 


MTXLAT 


016154R 


MTXLOA 


016366R 


NCAP 


020051R 


NCASTK 


020362R 


NCBUS 


020054R 


NCBYTE 


020057R 


NCCARR 


020442R 


NCCLOC 


020063R 


NCCMNT 


020364R 


NCCNTL 


C20423R 


NCCOLO 


020360R 


NCCOMD 


O20O67R 


NCCOMM 


020357R 


NCCONS 


020073R 


NCCOPY 


020432R 


NCDEFA 


0200 7 7R 


NCDONE 


020103R 


NCDX1 


020106R 


NCECHO 


020436R 


NCEO' 


020361R 


NCEdU 


020366R 


NCERRG 


020451R 


NCFAST 


020112R 


NCFILL 


020115R 


NCFLOP 


020120R 


NCFP 


020124R 


NCGENE 


020127R 


NCHEX 


020133R 


NCIDBU 


020136R 


NC INST 


020142R 


NCINTE 


020146R 


NC IR 


020154R 



ZZ-ESKAA-10.1 Syabol 


table 




VlO-Oi- 


L MACRO 


V05.03 F 


riday 25- 


S/abol 


table 






NCLOCA 


02O416R 


NOREMT 


036172RG 


NCLON6 


020157R 


NGSHOH= 


000020 


NCMMUS 


020365R 


NOSUFL 


021732R 


NCKORM 


020163R 


NOTREM 


022110R 


NCOCTA 


020167R 


NOUCSU 


021113R 


NCPC 


020173R 


NRMALL 


021347R 


NCPHYS 


0202O1R 


NULJOB 


002230R 


NCPLUS 


02O363R 


NULL 


014622R 


NCPROG 


020205R 


NUttBl 


005304R 


NCPSL 


020176R 


NXTSEG 


035554RG 


NCQUAD 


0202UR 


ODDADD 


013710R 


NCRELO 


020302R 


OHEX 


021407R 


NCREMO 


020456R 


OPBLOK 


036724R 


NCRO 


020214R 


OPENER 


013520R 


NCR1 


020217R 


OPENFL= 


000003 


NCRIO 


020252R 


OPNCHK 


036210RG 


NCRH 


020256R 


0PNFL1= 


000011 


NCR12 


020262R 


OPNPAR 


020704R 


NCR13 


020266R 


OPTHSK= 


000001 


NCRH 


020272R 


ORADIX 


021403R 


NCR15 


020276R 


OTHRTP= 


140056 


NCR2 


02O222R 


OUTASC 


007112R 


NCR3 


020225R 


PASS1 


036175RG 


NCR4 


02O23OR 


PCARDE= 


000000 


NCR5 


02O233R 


PCSEQU 


022300R 


NCR6 


020236R 


PCSVER= 


037752 


NCR7 


020241R 


PCVERS= 


000421 


NCR8 


020244R 


PEDT = 


000000 


NCR9 


020247R 


PERM = 


002000 


NCSLOH 


020306R 


PGMIOM 


035615RG 


NCSOMM 


020312R 


PHEXDE 


005360R 


NCSP 


020316R 


PHYIDN 


021537R 


NCSTAT 


020320R 


PHYSPC= 


000000 


NCSTEP 


020324R 


PHYTRK 


036142RG 


NCTALK 


020413R 


POSCNT 


035550RG 


NCTERM 


020330R 


PRNINH= 


100000 


NCVBUS 


020334R 


PROCED= 


000001 


NCVERS 


020340R 


PROTOC 


036272R 


NCVIRT 


020344R 


PRTDON 


035614RG 


NCWCS 


020350R 


PRTINT: 


032300R 


NCWORD 


020353R 


PSLSTR 


021602R 


NEGATE= 


000200 


PUSHU 


010732R 


NEUCOD 


036364RG 


PUTAVP= 


140070 


NEUEMT 


036366RG 


PUTRNP: 


140066 


NEXTCT 


035404R 


PVER = 


000001 


NOBYTS 


035564RG 


QADLNH: 


000003 


NOCNSL 


036763R 


QADTYP- 


000010 


NODRV1 


036173RG 


QALTRE 


01641 OR 


NODSIZ= 


000006 


QTCOLO 


016416R 


NOECHO 


022511R 


QTCOL3 


016454R 


NOLINK= 


000005 


QTCOMM 


016432R 


NOMATC 


014776R 


QTCOM2 


016504R 


NOOPT = 


030000 


QTDFOP 


016476R 


NOPROT 


036216R 


QTNUMO 


016424R 


NOREMO 


000636R 


QTNUM1 


016462R 



L 12 



Apr-86 10:56 Page 93-3 



20-MAY-1986 



Fiche 1 Frame L12 



Sequence 154 



QTbALO 

QTSTAR 

QTTSND 

Q.TUCS 

QUEBGN 

QUECNT 

QUEEND 

RADEQU 

RADGET= 

RADIX 

RADLST 

RBUF = 

RCSR = 

RCVACT= 

RCVDON= 

RCVINT= 

RDIDAD 

RDYIE = 

READ 

READID 

READS 

READSC= 

REBCON= 

RECHBU 

RECNUfl 

RECOG 

RECSIZ= 

RECSTR 

RELEQU 

RELOCA 

REHD1S= 

REMECH= 

REHENP= 

REMLEA 

REMONL 

REMOPT= 

REHOT = 

RE C HLT 

REPLAC 

REPORT 

REPOR1 

REQSND= 

RESADD 

RESCOM 

RESLSB= 

RESMSB= 

RESNAM 

RESTAR= 

RESTMM 

RESTRT 

RETRY 

RFLPEF 

RFLPWF 

RINGDT= 

RMRBUF= 



016470R 

016446R 

016512R 

016440R 

036246RG 

036224RG 

036260RG 

021462R 

000010 

035432RG 

O0674OR 

037760 G 

037756 G 

004000 

000200 

000100 

011712R 

000100 

000220R 

011042R 

000104R 

000004 

140100 

036624R 

015106R 

014326R 

000100 

014710R 

021505R 

022522R 

100600 

001000 G 

036622R 

014624R 

036271RG 

003000 

000002 G 

010210R 

010124R 

0O0404R 

0O0400R 

000004 

017332R 

021013R 

030000 

020O00 

017210R 

140000 

0O7402R 

001234R 

0O0O26R 

036731R 

036730R 

040000 

037770 G 



RMRCSR= 

RMRXVC= 

RMTENT 

RMTQUE 

RHTVEC 

RHTXPT 

RMTXVC= 

RMWRON= 

RMXBUF= 

RMXCSR= 

ROFLAG= 

ROMBAS= 

ROMNOP= 

ROUSPR= 

RPOSCN 

RPTFLG 

RSAVEP= 

RSPCCH 

RSPCCN 

RSPCFL= 

RTCCLR 

RTEHBF 

RTIINS 

RTIRET 

RTSINS 

RUNBIT= 

RUNNIN 

RVSTER= 

^XBFAD= 

-,BTCT = 

NACQE 

RXCS = 

RXDNE = 

RXDNVC= 

RXDONE: 

RXERRO 

RXFUN2 

RXLQE 

RXLSN 

RXSPFC= 

RXSTSC: 

RXTRY 

R$SET = 

R2GRAD 

SAVBTE 

SAVCOD 

SAVEFF 

SAVER 

SAVIDH 

SAVIDL 

SAUERR= 

SAHHLT: 

SAWTMO 

SBC 

SBIADD: 



G 
G 



037766 G 

000310 

032476R 

036262RG 

036622R 

036352RG 

000314 

000015 

037774 

037772 

000400 

140000 

000200 

100600 G 

036266R 

035415R 

140054 

036270R 

036264R 

000020 

011034R 

036336RG 

036414R 

000174R 

0O31O2R 

000400 

021262R 

140074 

000006 G 

000010 G 

036130RG 

177170 

000200 G 

000012 G 

173014 G 

035610RG 

036144RG 

036126RG 

036140RG 

000004 G 

000002 G 

036134RG 

000020 

005004R 

002512R 

022532R 

022526R 

035611RG 

036600R 

036576R 

000040 

000002 

022513R 

000002 

000032 



SBIERR= 


000031 


SBIUNJ: 


000452 


SCON 


021442R 


SECHLF= 


000001 


SECLOD 


022564R 


SECNUM 


035560RG 


SECSLF 


022540R 


SEDT = 


000001 


SENHDR 


036743R 


SETBYT 


017372R 


SETCOM 


017416R 


SETCON 


017312R 


SETDX1 


017300R 


SETFIL 


017140R 


SETGEN 


017320R 


SETHEX 


017402R 


SETIDB 


017314R 


SETINP 


002736R 


SETINT 


017316R 


SETLAS 


005312R 


SETLNG 


017366R 


SETLNH 


005336R 


SETLSA 


017560R 


SETLSD 


017704R 


SETMNS 


017576R 


SETNEX 


017410R 


SETOCT 


017400R 


SETOUT 


017672R 


SETPC 


017434R 


SETPHY 


017324R 


SETPLS 


017574R 


SETPSL 


017426R 


SETQAD 


017364R 


SETRPT 


017272R 


SETRO 


017544R 


SETR1 


017542R 


SETR10 


017520R 


SETR11 


017516R 


SETR12 


017514R 


SETR13 


017512R 


SETR14 


017510R 


SETR15 


017506R 


SETR2 


017540R 


SETR3 


017536R 


SETR4 


017534R 


SETR5 


C17532R 


SETR6 


017530R 


SETR7 


017526R 


SETR8 


017524R 


SETR9 


017522R 


SETSP 


C17442R 


SETSWH 


036764R 


SETTXR 


004444R 


SETUPR 


017450R 


SETVBU 


017310R 



M 12 
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table 








20-MAY-1986 f 


V10-01-1 


MACRO V05.03 F 


nday 25-Apr-86 


10:56 P 


age 93-4 






Symbol 


table 
















SETVIR 


017322R 




SVBOOT 


017040R 


THPRAD 


022510R 


TYP2 = 


000013 


SETHCS 


017470R 




SVBU 


021447R 


TOIDHI= 


173022 G 


Tl 


000061 


SETWRD 


017370R 




SVDEPO 


017220R 


TOIDLO= 


173020 G 


T2 


000062 


SFUDON= 


020000 6 




SVER = 


000000 


TPERRM 


013620R 


T3 


000063 


S6EN 


021425R 




SVEXAft 


017216R 


TRBYT 


036152RG 


UN KERR 


020717R 


SHIFTS 


035426R6 




SVHELP 


017154R 


TREAD = 


000002 


UPCEO.U 


021625R 


SHOWIN 


003032R 




SVIR 


021420R 


TRHAIT 


000334R 


USEDEF= 


002000 


SIDB 


021435R 




SVLOAD 


017250R 


TSTCLK 


007614R 


USRBSZ= 


000400 


SINT 


021431R 




SHCTIH= 


117032 


TSTCST 


011070R 


USRBUF= 


022600 


SIZTBL 


01 1704R 




SYBACT 


016670R 


TSTERR 


007756R 


USRREQ= 


000200 G 


SNGINS= 


100000 




SYBLST 


016604R 


TSTHAL 


010142R 


VBEXDE 


006050R 


SOFCOM= 


000017 G 




SYNC 


036273RG 


TSTHLF 


032002R 


VBUIDN 


021570R 


SOMMB = 


000100 




TAB 


021252R 


TSTHLP 


036360RG 


VBUSPC= 


090006 


SOMHIS 


021301R 




TABMES= 


011150 


TSTRUN 


011124R 


VBUSR = 


173036 


SPCCHR 


035546RG 




TBF0SV 


036614R 


TSTTMO 


011200R 


VCLK = 


000001 


SPCCNT 


035544RG 




TBUFO = 


000022 


TSTTY2 


010616R 


VIEXDE 


005364R 


SPCFLG= 


000040 G 




TBUF1 ^ 


000023 


TSTVER 


011324R 


VIRSPC= 


000001 


SPCLST 


015103R 




TCONTL 


035400R 


TTYBUF 


036420R 


VLOAD = 


000002 


SPCSTP= 


001000 




TCTFLG 


035532RG 


TTTSIZ= 


000122 


HAITLK 


036362RG 


SPCSYC= 


000400 




TEMSTR 


035456RG 


TTYTMP 


036416R 


WAITPT 


035620RG 


SPHY 


021413R 




TERFIL 


035547RG 


TWOSPC 


020714R 


WAITRT 


000166R 


STACLS 


016544R 




TESTLS 


015070R 


TWRITE= 


000001 


HBFPNT- 


000006 G 


STARCR 


035567RG 




TESTND 


015006R 


TXRDY = 


000200 G 


WBTCNT= 


000010 G 


STBOFL 


017134R 




THCRCC 


036745R 


TXREAD= 


173016 G 


HCNEFP 


022201R 


STBUS 


021336R 




THDRCN 


036744R 


TXRENT 


032560R 


WCNEPC 


022242R 


STCLJ1P 


007336R 




THDRST 


036746R 


TXSETR 


033006R 


WCSADD= 


000042 


STINST 


021331R 




TIMEND= 


022465R 


TYFLER 


013644R 


HCSDAT= 


000043 


STOPLS 


016532R 




TIMFLG 


036171RG 


TYPCAD 


011114R 


HCSDES= 


100000 


STPEQU 


021322R 




TIHOUT 


035617R 


TYPEIT= 


140046 


WCSEQU 


022313R 


STRIND= 


000400 




TIMTRP 


022431R 


TYPERC 


013652R 


WCSLOD 


020530R 


STRRUN 


020601R 




UNIT = 


000000 


TYPE13 


036777R 


WCSPRE= 


004000 


STRTBL 


035556RG 




TLKHOD= 


000000 G 


TYPIDR 


010464R 


WCVERS= 


010421 


STRTCK 


004344R 




TMEOUT 


020640R 


TYPTIC 


007412R 


WDNVEC= 


000012 G 


STS 


000004 




TMERTR= 


000017 


TYPl = 


000012 


WFDONE= 


000100 


STSTA 


021342R 
















. ABS. 


000000 
037000 


000 
001 


(RW.I.GBL.ABS.OVR) 
(RW.l. LCL.REL.CON) 










Errors 


detected: 

















'" Assembler stat 


istics 












Work f 


i le reads : 

















Work f 


i le wr i tes : 

















Size of 


work file: 


12552 Words 


( 50 Pages) 










Size of 


core pool : 


19684 Words 


( 75 Pages) 










Operating system: 


RSX 


-11H/PLUS 


(Under VAX/VMS 


) 









Fiche 1 Frame M12 



Sequence 155 



MHATTO 


035416R 


WPHVER= 


037753 


URDLNH= 


000001 


URID12 


011006R 


HRITID 


010756R 


WRITSC= 


000005 


WRHSTR= 


037745 


WRTLCP= 


140072 


WRTQUE 


036132RG 


WRTRMP 


036356RG 


USCVER= 


037754 


X = 


036765R 


XBUF = 


037764 G 


XCMDSV 


036762R 


XC-SR = 


037762 G 


XERR1 


022146R 


XERR2 


022157R 


XERR3 


022165R 


XLATFN 


011776R 


XLOFLG 


036761R 


XMTINT= 


000100 


XXT 


016410R 


Y 


036765 


YESLIN= 


000004 


Z 


000012 


ZFILLP= 


140052 


ZXTMP = 


000015 


$FER = 


000001 


$FNF = 


000002 


$FNR = 


000003 


$FOR = 


000004 


$TBSY = 


000005 


$TCTC = 


000006 


ITER = 


000007 



OB J :ESKAA.LST:ESKAA/-SP = SRC: CONSOLE. 801 



B 1 Document 

C 1 Docuaen t 

1 Document 
E 1 Docuaen t 

F 1 Tab I e of contents 

6 1 Tab I e of contents 

H 1 V10-01-L 

1 1 •••* VAX11/780 
J 1 VERSION HISTORY 



K 


1 


L 


1 


M 


1 


N 


1 


B 


2 


C 


2 


D 


2 


E 


2 


F 


2 


6 


2 


H 


2 


I 


2 


J 


2 


K 


2 


L 


2 


M 


2 


N 


2 


B 


3 


C 


3 


D 


3 


E 


3 


F 


3 


G 


3 


H 


3 


I 


3 


J 


3 


K 


3 


L 


3 


M 


3 


N 


3 


B 


4 


C 


4 


D 


4 


E 


4 


F 


4 


G 


4 


H 


4 


I 


4 


J 


4 


K 


4 


L 


4 


M 


4 


N 


4 


B 


5 


C 


5 


D 


5 


E 


5 


F 


5 


G 


5 


H 


5 


I 


5 


J 


5 


K 


5 


L 


S 


m 


5 


N 




B 


6 


C 


6 


D 


6 


E 


6 



HISTORY 
HISTORY 
HISTORY 
HISTORY 
HISTORY 
HISTORY 
ASSEMBLY 
AND 



AND 
AND 
AND 
AND 



FOR 
FOR 



KE 
NF 
HE 
NE 



VERSION 

VERSION 

VERSION 

VERSION 

VERSION 

VERSION 

CONSOLE 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

DECLARATIONS 

MACRO DEFINITIONS 

MACRO DEFINITIONS 

MACRO DEFINITIONS 

V10-Q1-L 

CONSOLE FLOPPY BOOT 

CONSOLE FLOPPY BOOT 

CONSOLE FLOPPY BOOT 

LOAD CONSOLE PROGRAM 

LOAD CONSOLE PROGRAM 

LOAD CONSOLE PROGRAM 

V10-01-L 

COMMAND GETTER 

GET A COMMAND L 

GET A COMMAND L 

GET A COMMAND L 

GET A COMMAND L 

CONSOLE HULL 

CONSOLE NULL 

CONSOLE NULL 

CONSOLE NULL 

VI 0-01 -L 

COMMAND EXECUTION R 

BOOT, PROCESS I ND IRE 

BOOT. PROCESS I ND I RE 

START .UKJAM 

HALT. INITIALIZE 

NEXT(PERFORM A STEP) 

NEXT(PERFORM A STEP) 

QUAD CLEAR 

SET STEP, CLOCK. SOMK 

SET STEP. CLOCK, SOHM 

EXAMINE. DEPOSIT 

EXAMINE. DEPOSIT 

EXAMINE. DEPOSIT 

EXAMINE. DEPOSIT 

EXAMINE. DEPOSIT 

MICRO-ASSISTED 

MICRO-ASSISTED 

EXAMINE ID BUS 

EXAMINE/DEPOSI T 

VBUS EXAMINE 

VBUS EXAMINE 

EXAMINE INSTRUCTION 

SHOU CONSOLE STATE 

SHOW CONSOLE STATE 

SHOW VERSION I NFC 

SET DEFAULTS 

LOAD M iCRO-01 AGNOST I 



CONSOLE(RAM) VER 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
-- EDIT ARCHIVE 
AND LHK NOTES 
HACROS 
MACROS 
MACROS 
MACROS 
MACROS 
FOR STAR CONS 
STAR CONS 
STAR CONS 



LOOP 
LOOP 
LCOP 
LOOP 



iN REGISTER 
CT I- ILE.CLEA 
CT F1LE.CLEA 



EXAMINE/DEPOSIT 
EXAMINE/DEPOSIT 

STAR PC 



REG ISTER < IR 



C MONITOR 



F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

Bl 

CI 

D10 

El 

F10 

G10 

HI 

110 

J10 

Kl 

L10 

Ml 

N10 

Bll 

CI 1 

Dl! 

Ell 

Fll 

Gl 1 

HI 1 

111 



6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 





WAIT FOR DONE.SET/CLR MEMORY MA 
CLOCK TICK REPORTING 
CHECK FOR CLOCK STOP. WAIT FOR M 
TEST FOR A MICRO-ROUTINE ERROR 
TEST FOR A STAR CPU HALT. REPOR 
TEST FOR A STAR CPU HALT. REPOR 
TEST FOR A STAR CPU HALT. REPOR 
TEST FOR A STAR CPU HALT, REP 
PUSH MICRO-STACK. READ/WRITE ID 
PUSH MICRO-STACK. READ/WRITE ID 
TEST FOR STAR CPU RUNNING 
TEST FOR A MICRO-MACHINE TIME 
PCS.WCS.FPLA VERSION CHECKING 



PCS.WCS.FPLA 
PCS.WCS.FPLA 



VERSION 
VERSION 



READ ID BUS REGISTER 



FILENAME 
FILENAME 
LOAD A F 
LOAD A F 
LOAD A F 
INDIRECT 
INDIRECT 



CONVERSION 

CONVERSION 
ILE 
ILE 
ILE 

COMMAND 

COMMAND 



CHECKING 
CHECKING 
ROUTINE 



TO 
TO 



RAD50 
RAD50 



LINE RETRIEVER 
LINE RETRIEVcR 
OPEN FILE. TYPE FLOPPY ERROR MES 
TIMEOUT/ODD ADDRESS TRAP CATCHE 
TIMEOUT/ODD ADDRESS TRAP CATCHE 
APT 'X' COMMAND EXECUTION 
APT 'X* COMMAND EXECUTION 
VI 0-01-L 
VI 0-01 -L 
PARSER 
PARSER 

REMOVE BLANKS. COMPUTE 
RECOGNIZE A STRING OF 
CHECK FOR A DELIMITER 
RECOGNIZE AND CONVERT 
RECOGNIZE AND CONVERT 
RECOGNIZE AND CONVERT 
MAIN SYNTAX CHECK TREE 
MAIN SYNTAX CHECK TREE 
MAIN SYNTAX CHECK TREE 
MAIN SYNTAX CHECK TREE 
QUALIFIER SYNTAX CHECK TREE 
MAINTREE AND QUALIFIER THK LIS 
MAINTREE AND QUALIFIER TREJ LIS 
PARSER ACTION ROUTINES 
ACTIONS THAT SAVE OPERA"MCH TO 
ACTIONS THAT SAVE OPERATION TO 
ACTIONS FOR QUALIFIERS AND SET 
SYMBOLIC REGISTER ADDRESS SETUP 
ACT'ONS FOR SYMBOLIC ADDRCSSES 



NEXT 

ASCII 

IN INPUT 

A NUMERIC 
NUMERIC 
NUMERIC 



A 
A 



NODE 
CHA 



RECOGNITION 

RECOGNITION 

RECOGNITION 

TEXT STRING 

TEXT STRING 

TEXT STRING 

TEMPORARY 

TEMPORARY 

TEMPORARY 

TEMPORARY 

TEMPORARY 

TEMPORARY 

VI 0-0 1 -L 

CONSOLE SWITCH 



STRINGS 



STRINGS 
STRINGS 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 
STORAGE 



CONSOLE 
CONbOLE 
CONSOLE 
CONSOLE 



SWITCH 
SWITCH 
SWITCH 
SWITCH 



POSI 

MODE 
MODE 
MODE 
MODE 



ION CHECKER 

CHANGE 

CHANGE 

CHANGE 

CHANGE 



Jli 

KU 

Lll 

Mil 

Nil 

B12 

C12 

Dl 

El 

Fl 

Gl 

HI 

112 

J12 

K12 

L12 

M12 



CO 
CO 
CO 
EM 
CO 
IM 
IM 
DE 
DE 
RI 
RI 
RI 
RI 
Sy 
Sy 
Sy 
Sy 



NSOLE 

NSOLE 

NSOLE 

T DES 

NSOLE 

PURE 

PURE 

VICE 

VICE 

NG BU 



NG 
NG 
NG 
mbo I 
Rbo I 
mbo I 
mbo I 



BU 
BU 
BU 



SHIT 
SWIT 
SWIT 
PATCH 
TEMP 
AREA 
AREA 
REQUE 
REQUE 
FFER 
FFER 
FFER 
FFER 
table 
tab le 
table 
table 



CH MOD 
CH MOD 
CH MOD 
ER FOR 
ORARY 
FOR DR 
FOR DR 
ST QUE 
ST QUE 
DESCRI 



UES 
PTOR 
DESCRIPTOR 
PTOR 
PTOR 



E CHANGE 
E CHANGE 
E CHANGE 

EXTRA EMT 
STORAGE 
IVERS AND 
IVERS AND 
UES 



CO 

IL 
IL 



DESCRI 
DESCRI 



BLOCKS 
BLOCKS 
BLOCKS 
BLOCKS 



